Result:
found more than 1414 distributions - search limited to the first 2001 files matching your query
( run in 1.840 )
Algorithm-Heapify-XS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-KNN-XS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-LBFGS
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
Algorithm-Line-Lerp
view release on metacpan or search on metacpan
$rv || 0;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-MedianSelect-XS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-MinPerfHashTwoLevel
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-PageRank-XS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-Permute
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-QuadTree-XS
view release on metacpan or search on metacpan
$rv || 0;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-RectanglesContainingDot_XS
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
$self =~ s/^$HS+Do NOT edit.*?(?=^-)//ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
Algorithm-Statistic
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-StringHash-FromCSharp35-XS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Algorithm-TrunkClassifier
view release on metacpan or search on metacpan
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
Algorithm/TrunkClassifier/ppport.h view on Meta::CPAN
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Alien-AntTweakBar
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
libs => '-L' . $self->quote_literal('@PrEfIx@/lib') . ' -lAntTweakBar',
cflags => '-I' . $self->quote_literal('@PrEfIx@/include'),
});
}
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch;
}
$self->SUPER::ACTION_code;
}
Alien-Base-Wrapper
view release on metacpan or search on metacpan
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Foo2');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo3');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=2 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo -lbaz )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo4');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo5', 'Alien::Bar5');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -I/bar/include -DFOO5=1 -DBAR5=1 one two three ) ],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib -L/foo/lib --ld-foo --ld-bar one two three -lfoo -lbar )],
'ld',
);
Alien-Box2D
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-Build
view release on metacpan or search on metacpan
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Foo2');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo3');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=2 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo -lbaz )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo4');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo5', 'Alien::Bar5=1.23');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -I/bar/include -DFOO5=1 -DBAR5=1 one two three ) ],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib -L/foo/lib --ld-foo --ld-bar one two three -lfoo -lbar )],
'ld',
);
Alien-CMake
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-FreeImage
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
LIBS => ' -L' . $self->quote_literal('@PrEfIx@') . $libs,
INC => ' -DFREEIMAGE_LIB -I' . $self->quote_literal('@PrEfIx@') . ' ',
});
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch();
}
$self->SUPER::ACTION_code;
}
Alien-PNG
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-ROOT
view release on metacpan or search on metacpan
inc/Alien/ROOT/Builder/Utility.pm view on Meta::CPAN
File::Spec->splitdir( $dir ), $file );
}
sub aroot_touch {
require ExtUtils::Command;
local @ARGV = @_;
ExtUtils::Command::touch();
}
1;
Alien-SDL
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-SDL2
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-Selenium
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
*read_file = \&My::Module::Build::read_file; }
use Test::More;
use Fatal qw(mkdir chdir);
local @ARGV = qw(--noinstall-everything);
my $define_options =
My::Tests::Below->pod_code_snippet("option-graph");
$define_options =~ s/\.\.\.//g;
my $builder = eval $define_options; die $@ if $@;
Alien-Tidyp
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
LIBS => '-L' . $self->quote_literal('@PrEfIx@/lib') . ' -ltidyp',
INC => '-I' . $self->quote_literal('@PrEfIx@/include/tidyp'),
});
}
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch();
}
$self->SUPER::ACTION_code;
}
Alien-V8
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
return $package->resume;
}
sub current {
# hmm, wonder what the right thing to do here is
local @ARGV;
return shift()->resume;
}
sub _construct {
my ($package, %input) = @_;
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
push @specs, $k . (defined $v->{type} ? $v->{type} : '');
push @specs, $v->{store} if exists $v->{store};
$args->{$k} = $v->{default} if exists $v->{default};
}
local @ARGV = @argv; # No other way to dupe Getopt::Long
# Get the options values and return them.
# XXX Add option to allow users to set options?
if ( @specs ) {
Getopt::Long::Configure('pass_through');
Alien-wxWidgets
view release on metacpan or search on metacpan
inc/My/Build/Utility.pm view on Meta::CPAN
File::Spec->splitdir( $dir ), $file );
}
sub awx_touch {
require ExtUtils::Command;
local @ARGV = @_;
ExtUtils::Command::touch();
}
1;
AlignDB-IntSpanXS
view release on metacpan or search on metacpan
$rv;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
Alt-App-makepatch
view release on metacpan or search on metacpan
script/makepatch view on Meta::CPAN
my $init;
# Process ENV options.
if ( defined ($init = $ENV{MAKEPATCHINIT}) ) {
require Text::ParseWords;
local (@ARGV) = Text::ParseWords::shellwords ($init);
unless ( GetOptions (@o, "rcfile=s" => \$opt_rcfile) &&
@ARGV == 0 ) {
warn ("Error in MAKEPATCHINIT\n");
app_usage (1);
}
script/makepatch view on Meta::CPAN
return;
}
require Text::ParseWords;
local (@ARGV);
my $ok = 1;
# Intercept Getopt::Long warning messages.
my $warn;
$SIG{__WARN__} = sub { $warn = "@_"; };
Alt-Crypt-OpenSSL-PKCS12-Broadbean
view release on metacpan or search on metacpan
$rv || 0;
}
sub usage
{
my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
my %M = ( 'I' => '*' );
$usage =~ s/^\s*perl\s+\S+/$^X $0/;
$usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
print <<ENDUSAGE;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
( run in 1.840 second using v1.01-cache-2.11-cpan-a1d94b6210f )