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
t/40_ishmael.t view on Meta::CPAN
$tmp;
};
sub new_ishmael {
local @ARGV = ('-N', @_);
return EBook::Ishmael->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') {
view release on metacpan or search on metacpan
t/deploy_config.t view on Meta::CPAN
is $output, '';
my $path = File::Spec->catfile( $pods_dir, 'first.pod.html' );
ok -f $path;
my $html = do { local (@ARGV, $/) = $path; <> };
like_string $html, qr/<h1 id="Unittest">Unittest/;
like_string $html, qr/<a href="http/;
like_string $html, qr/feature-addons/;
view release on metacpan or search on metacpan
t/07_run_two.t view on Meta::CPAN
=head1 Text - a test library for text output 200: Text !;
is( $debug, $check, 'debug' );
my $txt_check = "Text - a test library for text output\n Ein Absatz im POD.\n\n";
my $txt_content = do{ local( @ARGV, $/) = $txt->filename; <> };
is ( $txt_content, $txt_check, 'check generated text' );
sub debug{
$debug .= $_[0] . " ";
}
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
$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;
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
lib/EB/IniWiz.pm view on Meta::CPAN
$req--;
my $ret;
undef $cfg;
EB->app_init( { app => $EekBoek::PACKAGE, %opts } );
require EB::Main;
local @ARGV = qw( --init );
$ret = EB::Main->run;
die(_T("Er is een probleem opgetreden. Raadplaag uw systeembeheerder.")."\n")
if $ret;
}
view release on metacpan or search on metacpan
}
elsif (/^{(.+)}$/) {
eval $1;
next;
}
local @ARGV = shellwords($_);
my $cmd = shift @ARGV;
$cmd =~ tr/-/_/;
if ($shell{'aliases'}{$cmd}) {
$cmd = $shell{'aliases'}{$cmd};
if (ref $cmd) {
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
script/elive_lint_config view on Meta::CPAN
main(@ARGV) unless caller;
sub main {
local(@ARGV) = @_;
my $help;
(GetOptions(
'help|?' => \$help,
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
lib/Email/Fingerprint/App/EliminateDups.pm view on Meta::CPAN
sub _process_options :PRIVATE {
my ( $self, @args ) = @_;
# Fool Getopt::Long. Sigh.
local @ARGV = @args;
$self->_init;
$self->_die_usage if not GetOptions(
"dump" => \$dump{ident $self},
view release on metacpan or search on metacpan
# this is a wrapper for distro manipulation methods
#_______________________________________
sub admin {
my $edb = shift;
local @ARGV = @_;
my %sub_for_admin_command = (
addDistro => undef,
cloneDistro => undef,
updateDistro => undef,
view release on metacpan or search on metacpan
lib/Enbld/App.pm view on Meta::CPAN
}
sub parse_options {
my $self = shift;
local @ARGV;
push @ARGV, @_;
my $make_test;
my $force;
my $current;
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/02_basic.t view on Meta::CPAN
use_ok("Encode::Argv");
}
my @args = qw(日本語 ã™ã‚‚ã‚‚ コーヒー abcdef);
{
local @ARGV = map { Encode::encode('cp932', $_) } @args;
Encode::Argv->import('cp932');
is_deeply(\@ARGV, \@args);
}
{
local @ARGV = map { Encode::encode('cp932', $_) } @args;
Encode::Argv->import('cp932', 'euc-jp');
is_deeply(\@ARGV, [ map { Encode::encode('euc-jp', $_) } @args ]);
}
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
t/decode_argv.t view on Meta::CPAN
use Test::More;
use Decode::ARGV ();
use Encode::Simple qw(encode encode_utf8);
subtest 'Strict UTF-8 decode' => sub {
local @ARGV = map { encode_utf8 $_ } 'xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}";
Decode::ARGV->import;
is_deeply \@ARGV, ['xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}"], 'right characters';
local @ARGV = ("\xFF\xFF");
ok !eval { Decode::ARGV->import; 1 }, 'decode failed';
};
subtest 'Lax UTF-8 decode' => sub {
local @ARGV = map { encode_utf8 $_ } 'xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}";
Decode::ARGV->import('lax');
is_deeply \@ARGV, ['xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}"], 'right characters';
local @ARGV = ("\xFF\xFF");
Decode::ARGV->import('lax');
is_deeply \@ARGV, ["\N{U+FFFD}\N{U+FFFD}"], 'replacement characters';
};
subtest 'Strict UTF-16LE decode' => sub {
local @ARGV = map { encode 'UTF-16LE', $_ } 'xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}";
Decode::ARGV->import('UTF-16LE');
is_deeply \@ARGV, ['xyz', "r\N{U+E9}sum\N{U+E9}", "\N{U+2603}"], 'right characters';
local @ARGV = ("\xFF\xFF");
ok !eval { Decode::ARGV->import('UTF-16LE'); 1 }, 'decode failed';
};
subtest 'Lax ASCII decode' => sub {
local @ARGV = ('xyz', "r\N{U+E9}sum\N{U+E9}");
Decode::ARGV->import(lax => 'ASCII');
is_deeply \@ARGV, ['xyz', "r\N{U+FFFD}sum\N{U+FFFD}"], 'right characters';
local @ARGV = ("\xFF\xFF");
Decode::ARGV->import(lax => 'ASCII');
is_deeply \@ARGV, ["\N{U+FFFD}\N{U+FFFD}"], 'replacement characters';
};
done_testing;
view release on metacpan or search on metacpan
#Getopt::Long::Configure("bundling");
#GetOptions(\%opt, qw(C M=s S Q q O o=s f=s n=s v));
getopts('CM:SQqOo:f:n:v',\%opt);
$opt{M} and make_makefile_pl($opt{M}, @ARGV);
$opt{C} and make_configlocal_pm($opt{C}, @ARGV);
$opt{v} ||= $ENV{ENC2XS_VERBOSE};
$opt{q} ||= $ENV{ENC2XS_NO_COMMENTS};
sub verbose {
print STDERR @_ if $opt{v};
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/English/ppport.h view on Meta::CPAN
$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;
lib/English/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') {