package VCP::Dest::null; =head1 NAME VCP::Dest::null - null destination driver =head1 SYNOPSIS vcp null: vcp null: =head1 DESCRIPTION Runs in metadata only mode (so the source need not do checkouts) and discards even that. Useful for testing. =cut $VERSION = 1 ; use strict ; use vars qw( $debug ) ; $debug = 0 ; use Carp ; use File::Basename ; use File::Path ; use Getopt::Long ; use VCP::Debug ':debug' ; use VCP::Rev ; use base qw( VCP::Dest ); sub new { my $class = shift ; $class = ref $class || $class ; my $self = $class->SUPER::new( @_ ) ; ## Parse the options my ( $spec, $options ) = @_ ; { local *ARGV = $options ; GetOptions( "NoFreakinOptionsAllowed" => \undef, ) or $self->usage_and_exit ; } $self->repo_id( "null:" . $self->repo_server ); return $self ; } sub metadata_only { 1 } sub handle_rev { } =head1 AUTHOR Barrie Slaymaker =head1 COPYRIGHT Copyright (c) 2000, 2001, 2002 Perforce Software, Inc. All rights reserved. See L (C) for the terms of use. =cut 1