package VCP::Filter::identity; =head1 NAME VCP::Filter::identity - identity (ie noop) =head1 SYNOPSIS vcp <source> identity: <dest> =head1 DESCRIPTION A simple passthrough, used for testing to make sure that VCP::Filter really is a pass through and that vcp can load filters. =for test_script t/10vcp.t =cut $VERSION = 1 ; @ISA = qw( VCP::Filter ); use strict ; use VCP::Filter; use Getopt::Long; #use base qw( VCP::Filter ); sub new { my $self = shift->SUPER::new; ## Parse the options my ( $spec, $options ) = @_ ; { local *ARGV = $options ; GetOptions( "NoFreakinOptionsAllowed" => \undef, ) or $self->usage_and_exit ; } return $self ; } =head1 AUTHOR Barrie Slaymaker <barries@slaysys.com> =head1 COPYRIGHT Copyright (c) 2000, 2001, 2002 Perforce Software, Inc. All rights reserved. See L<VCP::License|VCP::License> (C<vcp help license>) for the terms of use. =cut 1
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#5 | 4490 | Barrie Slaymaker | - Minor code cleanups | ||
#4 | 4021 | Barrie Slaymaker |
- Remove all phashes and all base & fields pragmas - Work around SWASHGET error |
||
#3 | 4012 | Barrie Slaymaker | - Remove dependance on pseudohashes (deprecated Perl feature) | ||
#2 | 2322 | Barrie Slaymaker | Fix jack-in-the-bug options parsing exposed by .vcp files | ||
#1 | 2312 | Barrie Slaymaker |
wait for me! wait for me! |