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') {
view release on metacpan or search on metacpan
lib/Class/Scaffold/App/Test/YAMLDriven.pm view on Meta::CPAN
$testdir
);
for my $name (sort keys %file) {
note "Loading test file $name";
( my $tests_yaml =
do { local (@ARGV, $/) = $file{$name}; <> }
) =~ s/%%PID%%/sprintf("%06d", $$)/ge;
$tests_yaml =~ s/%%CNT%%/sprintf("%03d", ++(our $cnt))/ge;
# Quick regex check whether the test wants to be skipped. To use
# Load() on a test that wants to be skipped would be a bad idea as it
view release on metacpan or search on metacpan
lib/Class/Sniff/App.pm view on Meta::CPAN
=cut
sub new {
my ( $class, @args ) = @_;
local @ARGV = @args;
my $self = bless {
dirs => undef,
ignore => undef,
namespace => qr/./,
output => undef,
view release on metacpan or search on metacpan
lib/Class/Usul/TraitFor/UntaintedGetopts.pm view on Meta::CPAN
my $usage_opt = $config{usage_opt} ? $config{usage_opt} : 'Usage: %c %o';
@gld_conf{ @gld_attr } = @config{ @gld_attr };
$config{usage_conf } and $_set_usage_conf->( $config{usage_conf} );
$config{protect_argv } and local @ARGV = @ARGV;
$enc and @ARGV = map { decode( $enc, $_ ) } @ARGV;
$config{no_untaint } or @ARGV = map { untaint_cmdline $_ } @ARGV;
$Untainted_Argv = [ @ARGV ];
keys %{ $splitters } and @ARGV = $_split_args->( $splitters );
($opt, $Usage) = describe_options( $usage_opt, @options, \%gld_conf );
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') {
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') {
view release on metacpan or search on metacpan
Cwd::chdir($iwd) || warn "$iwd: $!\n";
my($cli) = grep /^viewenv=/, @ARGV;
$venv = (split /=/, $cli)[1] if $cli;
$venv ||= '.viewenv.pl';
if (-f $venv) {
local @ARGV = grep /^\w+=/, @ARGV;
push(@ARGV, @viewenv_argv) if @viewenv_argv;
print "+ reading $venv ...\n";
eval { require $venv };
warn Msg('W', $@) if $@;
}
view release on metacpan or search on metacpan
use File::Find;
($EQHL, $PRHL, $STHL, $FCHL) = qw(EqInc PrevInc StBr FullCpy);
# Note: only wrapper supported functionality--possible fallback to cleartool
sub _Wrap {
local @ARGV = @_;
ClearCase::Wrapper::Extension($ARGV[0]);
no strict 'refs';
my $rc = eval { "ClearCase::Wrapper::$ARGV[0]"->(@ARGV) };
if ($@) {
chomp $@; #One extra newline to avoid dumping the stack
view release on metacpan or search on metacpan
# Examines supplied arg vector, returns the explicit or implicit working view.
sub ViewTag {
my $vtag;
if (@_) {
local(@ARGV) = @_;
GetOptions("tag=s" => \$vtag);
}
if (!$vtag) {
require Cwd;
my $cwd = Cwd::fastgetcwd;
view release on metacpan or search on metacpan
my $count = do { local $/; <$count_fh> };
close $count_fh;
chomp $count;
if (!$insert_ok || $count != $nrows) {
my $err = do { local (@ARGV, $/) = '/tmp/fuzz.err'; <> };
fail("iter $iter: CH rejected our buffer (got $count rows, expected $nrows)");
diag("schema: $col_defs");
diag("error: $err") if $err;
} else {
pass("iter $iter: $ncols cols × $nrows rows accepted");
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') {
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') {
view release on metacpan or search on metacpan
buildlib/Clownfish/Build.pm view on Meta::CPAN
# the generated Makefile.
my $error = system("$^X -Mblib -MClownfish::Test -e1");
if ($error) {
print STDERR "Build succeeded, but 'use Clownfish::Test' failed.\n";
if ($ENV{AUTOMATED_TESTING}) {
my $makefile = do { local(@ARGV, $/) = 'Makefile'; <> };
print STDERR "\nContents of Makefile:\n$makefile";
}
die;
}
}
view release on metacpan or search on metacpan
t/clustericious_app.t view on Meta::CPAN
$t->get_ok('/autotest_not_found')
->status_is(404);
note $t->tx->res->text;
my($out,$err,$ret) = capture {
local @ARGV = 'routes';
local $ENV{MOJO_APP} = 'SomeService';
Clustericious::Commands->start;
};
note "[routes]\n$out" if $out;
note "[err]\n$err" if $err;
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') {
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') {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use_ppport '3.19';
cc_append_to_libs '-lobjc';
my $use_local_framework;
if ($use_local_framework = (grep(/USE_LOCAL_GROWL_FRAMEWORK=.*/, @ARGV))[0] ) {
$use_local_framework =~ s/.*?=//;
}
@ARGV = grep !/USE_LOCAL_GROWL_FRAMEWORK/, @ARGV;
if ($use_local_framework) {
view release on metacpan or search on metacpan
src/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;
src/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') {
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') {
view release on metacpan or search on metacpan
t/lib/ShellTest.pm view on Meta::CPAN
}
sub basic_collect : TestGroup {
my ( $self ) = @_;
local @ARGV = @{ $self->{basic_collect_args} };
$self->check_codestat_shell_app_against( "data/json/basic_collect.json" );
ok( -e 'codestat.out', 'output file is generated' );
t/lib/ShellTest.pm view on Meta::CPAN
}
sub nodump_collect : TestGroup {
my ( $self ) = @_;
local @ARGV = (
@{$self->{basic_collect_args}},
qw( --no_dump )
);
$self->check_codestat_shell_app_against( "data/json/basic_collect.json" );
view release on metacpan or search on metacpan
lib/Code/TidyAll/Plugin/MasonTidy.pm view on Meta::CPAN
sub _build_cmd {'masontidy'}
sub transform_source {
my ( $self, $source ) = @_;
local @ARGV = shellwords( $self->argv );
local $ENV{MASONTIDY_OPT};
my $dest = Mason::Tidy::App->run($source);
return $dest;
}
view release on metacpan or search on metacpan
lib/CodeGen/Protection/Format/Perl.pm view on Meta::CPAN
my ( $stderr, $tidied );
# need to clear @ARGV or else Perl::Tidy thinks you're trying
# to provide a filename and dies
local @ARGV;
Perl::Tidy::perltidy(
source => \$code,
destination => \$tidied,
stderr => \$stderr,
@perltidy,
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') {
view release on metacpan or search on metacpan
lib/Command/Run.pm view on Meta::CPAN
binmode STDIN, $raw ? ':utf8' : ':encoding(utf8)';
}
# Set global state
local $_;
local @ARGV = @command;
my $orig_0;
if (my $name = code_name($code)) {
$orig_0 = $0;
$0 = $name;
}
lib/Command/Run.pm view on Meta::CPAN
critical when the caller aliases C<$_> to important data (e.g.,
greple's C<local *_ = shift> to alias C<$_> to the content buffer).
Without this protection, a callee's C<< while (E<lt>E<gt>) >> loop
would set C<$_> to C<undef> at EOF, destroying the caller's data.
=item C<local @ARGV>
Prevents the callee from modifying the caller's C<@ARGV>.
=item C<$0> save/restore
view release on metacpan or search on metacpan
t/01-basic.t view on Meta::CPAN
use base 'Common::CLI';
package main;
{
local @ARGV = qw( --help );
my $app = My::Application->new(
profile => {
'optional' => [
[ 'help', 'Display this help' ],
t/01-basic.t view on Meta::CPAN
}
}
{
local @ARGV = qw();
my $app = My::Application->new(
profile => {
'required' => [
[ 'import=s', 'File to import' ],
t/01-basic.t view on Meta::CPAN
is_deeply( $missing, $wanted_missing );
}
}
{
local @ARGV = qw();
my $app = My::Application->new(
profile => {
'optional' => [
[ 'import=s', 'File to import' ],
t/01-basic.t view on Meta::CPAN
is_deeply( $options, $wanted_options );
}
}
{
local @ARGV = qw( --import /tmp/non-existent-file.csv );
my $app = My::Application->new(
profile => {
'required' => [
[ 'import=s', 'File to import' ],
t/01-basic.t view on Meta::CPAN
}
package main;
{
local @ARGV = qw( --import /tmp/non-existent-file.csv );
#
# Check profile created
#
my $app = My::Other::Application->new();
t/01-basic.t view on Meta::CPAN
}
package main;
{
local @ARGV = qw( --import /tmp/non-existent-file.csv --export /tmp/file );
#
# Check profile created
#
my $app = My::Other::Yet::Application->new();
view release on metacpan or search on metacpan
lib/Common/CodingTools.pm view on Meta::CPAN
my $file = shift;
# Read in a text file without using open
if (-e $file) {
return (
do { local (@ARGV, $/) = $file; <> }
);
}
return (undef);
} ## end sub slurp_file
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
use ExtUtils::MakeMaker;
use Devel::CheckLib;
{
local @ARGV = @ARGV;
unshift(@ARGV, ExtUtils::MakeMaker::_shellwords($ENV{PERL_MM_OPT} || ''))
if $ExtUtils::MakeMaker::VERSION >= 6.73_08;
check_lib(
header => 'cmark.h',
function => 'return CMARK_VERSION >= 0x001500 ? 0 : 1;',
view release on metacpan or search on metacpan
t/app/Plack/Runner.t view on Meta::CPAN
}
sub parse_options {
my $self = shift;
local @ARGV = @_;
# From 'prove': Allow cuddling the paths with -I, -M and -e
@ARGV = map { /^(-[IMe])(.+)/ ? ($1,$2) : $_ } @ARGV;
my($host, $port, $socket, @listen);
view release on metacpan or search on metacpan
lib/Compress/Bzip2.pm view on Meta::CPAN
sub _process_files ( @ ) {
my $command = shift;
my $opts = shift;
local @ARGV = @_;
my %opts;
return undef if !getopt( $opts, \%opts );
# c compress or decompress to stdout
# d decompress
view release on metacpan or search on metacpan
src/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;
src/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') {