package VCP::Filter::identity; =head1 NAME VCP::Filter::identity - identity (ie noop) =head1 SYNOPSIS vcp identity: =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 ; use strict ; use VCP::Filter; use Getopt::Long; use base qw( VCP::Filter ); sub new { my VCP::Filter::identity $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 =head1 COPYRIGHT Copyright (c) 2000, 2001, 2002 Perforce Software, Inc. All rights reserved. See L (C) for the terms of use. =cut 1