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
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;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $warn_0 = 'BEGIN { $^W = 0 }';
{
eval "require warnings; import warnings";
$use_warnings = $@ ? 0 : 1;
local(@ARGV) = ($PM, $SHASUMPP);
while (<>) {
if (
(!$use_warnings && /^(use|no) warnings\b/) ||
( $use_warnings && /^\Q$warn_1\E # use warnings\b/) ||
( $use_warnings && /^\Q$warn_0\E # no warnings\b/)) {
Makefile.PL view on Meta::CPAN
}
}
}
if (@EDITs) {
local($^I, @ARGV) = ('', @EDITs);
while (<>) {
if ($use_warnings) {
s/^\Q$warn_1\E # (.*)$/$1/;
s/^\Q$warn_0\E # (.*)$/$1/;
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $warn_0 = 'BEGIN { $^W = 0 }';
{
eval "require warnings; import warnings";
$use_warnings = $@ ? 0 : 1;
local(@ARGV) = ($PM, $SHASUM);
while (<>) {
if (
(!$use_warnings && /^(use|no) warnings\b/) ||
( $use_warnings && /^\Q$warn_1\E # use warnings\b/) ||
( $use_warnings && /^\Q$warn_0\E # no warnings\b/)) {
Makefile.PL view on Meta::CPAN
}
}
}
if (@EDITs) {
local($^I, @ARGV) = ('', @EDITs);
while (<>) {
if ($use_warnings) {
s/^\Q$warn_1\E # (.*)$/$1/;
s/^\Q$warn_0\E # (.*)$/$1/;
}
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
my $warn_0 = 'BEGIN { $^W = 0 }';
{
eval "require warnings; import warnings";
$use_warnings = $@ ? 0 : 1;
local(@ARGV) = ($PM, $SHA3SUM);
while (<>) {
if (
(!$use_warnings && /^(use|no) warnings\b/) ||
( $use_warnings && /^\Q$warn_1\E # use warnings\b/) ||
( $use_warnings && /^\Q$warn_0\E # no warnings\b/)) {
Makefile.PL view on Meta::CPAN
}
}
}
if (@EDITs) {
local($^I, @ARGV) = ('', @EDITs);
while (<>) {
if ($use_warnings) {
s/^\Q$warn_1\E # (.*)$/$1/;
s/^\Q$warn_0\E # (.*)$/$1/;
}
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
$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
$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
$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
my ($guts, $ec);
sub _mod2pm { (my $mod = shift) =~ s{::}{/}g; return "$mod.pm" }
sub _path2mod { (my $pm = shift) =~ s{/}{::}g; return substr $pm, 5, -3 }
sub _mod2dist { (my $mod = shift) =~ s{::}{-}g; return $mod; }
sub _slurp { do { local (@ARGV,$/)=$_[0]; <> } }
#--------------------------------------------------------------------------#
# configure
#--------------------------------------------------------------------------#
view release on metacpan or search on metacpan
lib/Dist/Dzpl.pm view on Meta::CPAN
my $app = Dist::Zilla::App->new;
$app->{__chrome__} = $zilla->chrome;
$app->{__PACKAGE__}{zilla} = $zilla; # Cover case 1...
$app->{'Dist::Zilla::App'}{zilla} = $zilla; # ...and case 2
{
local @ARGV = @arguments;
$app->run;
}
}
else {
die "Dist::Zilla cannot do \"$do\"" unless $zilla->can( $do );
view release on metacpan or search on metacpan
lib/Dist/Maker/Template/CLI.pm view on Meta::CPAN
return File::Basename::basename($0);
}
sub new {
my $class = shift;
local @ARGV = @_;
my %opts;
my $success = $class->getopt_parser->getoptions(
\%opts,
$class->getopt_spec());
view release on metacpan or search on metacpan
lib/Dist/Man/Simple.pm view on Meta::CPAN
if ( -e $self->{basedir} ) {
die( "$self->{basedir} already exists. ".
"Use --force if you want to stomp on it.\n"
) unless $self->{force};
local @ARGV = $self->{basedir};
rm_rf();
die "Couldn't delete existing $self->{basedir}: $!\n"
if -e $self->{basedir};
}
CREATE_IT: {
$self->progress( "Created $self->{basedir}" );
local @ARGV = $self->{basedir};
mkpath();
die "Couldn't create $self->{basedir}: $!\n" unless -d $self->{basedir};
}
lib/Dist/Man/Simple.pm view on Meta::CPAN
my $SLASH = q{/};
my $manifest_file = join( $SLASH, 'lib', @parts, $filepart );
if ( @dirparts ) {
my $dir = File::Spec->catdir( @dirparts );
if ( not -d $dir ) {
local @ARGV = $dir;
mkpath @ARGV;
$self->progress( "Created $dir" );
}
}
lib/Dist/Man/Simple.pm view on Meta::CPAN
my $content = shift;
my @dirparts = ( $self->{basedir}, 't' );
my $tdir = File::Spec->catdir( @dirparts );
if ( not -d $tdir ) {
local @ARGV = $tdir;
mkpath();
$self->progress( "Created $tdir" );
}
my $fname = File::Spec->catfile( @dirparts, $filename );
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Milla/FirstBuild.pm view on Meta::CPAN
$self->log("Running the initial build & clean");
{
my $wd = File::pushd::pushd($opts->{mint_root});
for my $cmd (['build', '--no-tgz'], ['clean']) {
local @ARGV = (@$cmd);
Dist::Milla::App->run;
}
}
my $git = Git::Wrapper->new("$opts->{mint_root}");
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Author/Plicease/MakeMaker.pm view on Meta::CPAN
my @content = do {
my $in = $file->content;
my $out = '';
my $err = '';
local @ARGV = ();
my $error = Perl::Tidy::perltidy(
source => \$in,
destination => \$out,
stderr => \$err,
perltidyrc => Dist::Zilla::Plugin::Author::Plicease->dist_dir->child('perltidyrc')->stringify,
view release on metacpan or search on metacpan
t/010-basic.t view on Meta::CPAN
sub dz_build {
my $dir = shift;
if (chdir File::Spec->catdir( "t", $dir )) {
local @ARGV = qw<build>;
$rc = Dist::Zilla::App->run;
} else {
fail("Cannot use $dir directory: " . $!);
}
view release on metacpan or search on metacpan
lib/Dist/Zilla/App/Command/perltidy.pm view on Meta::CPAN
sub abstract {'perltidy your dist'}
my $backends = {
vanilla => sub {
local @ARGV = ();
require Perl::Tidy;
return sub {
local @ARGV = ();
Perl::Tidy::perltidy(@_);
};
},
sweet => sub {
local @ARGV = ();
require Perl::Tidy::Sweetened;
return sub {
local @ARGV = ();
Perl::Tidy::Sweetened::perltidy(@_);
};
},
};
view release on metacpan or search on metacpan
t/externaldeps.t view on Meta::CPAN
use Cwd;
use Dist::Zilla::App;
my $cwd = getcwd();
chdir 't/eg';
local @ARGV = ('externaldeps');
my $stdout = stdout_from { Dist::Zilla::App->run };
chdir $cwd;
like( $stdout, qr/man/, 'man is an external prerequisite' );
like( $stdout, qr/sqlite3/, 'sqlite is an external prerequisite' );
view release on metacpan or search on metacpan
lib/Dist/Zilla/Plugin/Author/Plicease/MakeMaker.pm view on Meta::CPAN
my @content = do {
my $in = $file->content;
my $out = '';
my $err = '';
local @ARGV = ();
my $error = Perl::Tidy::perltidy(
source => \$in,
destination => \$out,
stderr => \$err,
perltidyrc => Dist::Zilla::Plugin::Author::Plicease->dist_dir->child('perltidyrc')->stringify,
view release on metacpan or search on metacpan
Dist-Zilla-PluginBundle-BAREFOOT-0.05_01/t/tdist.t view on Meta::CPAN
done_testing;
sub run_dzil_command
{
local @ARGV = @_;
Dist::Zilla::App->run;
}
view release on metacpan or search on metacpan
lib/Dist/Zilla/App/Command/shell.pm view on Meta::CPAN
my $prompt = 'DZ> ';
while (1) {
my $line = $term->readline($prompt);
local @ARGV = Text::ParseWords::shellwords($line);
next unless @ARGV;
last if $ARGV[0] =~ /\A(?:exit|x|quit|q)\z/;
if (exists $builtins{$ARGV[0]}) {
local $@;
view release on metacpan or search on metacpan
t/0.90/can/Data_Object_Args_exists.t view on Meta::CPAN
use Data::Object::Args;
can_ok "Data::Object::Args", "exists";
local @ARGV = ('--command', 'post', '--action', 'users');
my $data = Data::Object::Args->new(
named => { command => 0, action => 1 }
);
view release on metacpan or search on metacpan
lib/Doc/Simply/App.pm view on Meta::CPAN
my @arguments = @_;
my ( $help, $type );
$type = 'slash-star';
{
local @ARGV = @arguments;
GetOptions(
'type=s' => \$type,
'help|h|?' => \$help,
);
view release on metacpan or search on metacpan
t/test_docopt.py.t view on Meta::CPAN
is_deeply($args->{'-x'}, True);
is_deeply($args->{'-y'}, undef);
};
subtest 'test_issue_65_evaluate_argv_when_called_not_when_imported' => sub {
local @ARGV = qw(-a);
is_deeply(docopt(doc => 'usage: prog [-ab]'), {'-a' => True, '-b' => undef});
local @ARGV = qw(-b);
is_deeply(docopt(doc => 'usage: prog [-ab]'), {'-a' => undef, '-b'=> True});
};
subtest 'test_issue_71_double_dash_is_not_a_valid_option_argument' => sub {
view release on metacpan or search on metacpan
lib/Doit/Fork.pm view on Meta::CPAN
my $worker_pid = fork;
if (!defined $worker_pid) {
error "fork failed: $!";
} elsif ($worker_pid == 0) {
my $d = do {
local @ARGV = $dry_run ? '--dry-run' : ();
Doit->init;
};
$pipe_to_fork->reader;
$pipe_from_fork->writer;
$pipe_from_fork->autoflush(1);
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/40_gutenberg.t view on Meta::CPAN
sub newgut {
my @args = @_;
local @ARGV = (@COMMON_OPTS, @args);
return EBook::Gutenberg->init;
}
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') {