package VCP::Dest::null; =head1 NAME VCP::Dest::null - null destination driver =head1 SYNOPSIS vcp null: vcp null: =head1 DESCRIPTION Behaves like a normal destination but generates no output. =cut $VERSION = 1 ; @ISA = qw( VCP::Dest ); use strict ; use Carp ; use File::Basename ; use File::Path ; use VCP::Debug ':debug' ; use VCP::Dest; use VCP::Logger qw( lg pr_doing ); use VCP::Rev ; #use base qw( VCP::Dest ); #use fields ( # 'NULL_GET_REVS', ## 0 => don't actually fetch the revs, otherwise do. #); sub new { my $self = shift->SUPER::new; ## Parse the options my ( $spec, $options ) = @_ ; die "vcp: the null source takes no spec ('$1')\n" if defined $spec && $spec =~ m{\Anull:(.+)}i; $self->repo_id( "null" ); $self->parse_repo_spec( $spec ) if defined $spec; $self->parse_options( $options ); return $self; } sub options_spec { my $self = shift; return ( $self->SUPER::options_spec, "dont-get-revs" => sub { $self->{NULL_GET_REVS} = 0 }, ); } sub handle_rev { my $self = shift; my ( $r ) = @_; debug "got ", $r->as_string if debugging; $r->get_source_file if ( ! defined $self->{NULL_GET_REVS} || $self->{NULL_GET_REVS} ) && ( $r->is_base_rev || ( ! $r->is_placeholder_rev && $r->action ne "delete" ) ); pr_doing; } =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