view release on metacpan or search on metacpan
lib/App/diff2vba.pm view on Meta::CPAN
} no Getopt::EX::Hashed;
sub run {
my $app = shift;
local @ARGV = map { utf8::is_utf8($_) ? $_ : decode('utf8', $_) } @_;
use Getopt::EX::Long qw(GetOptions Configure ExConfigure);
ExConfigure BASECLASS => [ __PACKAGE__, "Getopt::EX" ];
Configure qw(bundling no_getopt_compat);
$app->getopt || pod2usage();
view release on metacpan or search on metacpan
script/diffwc view on Meta::CPAN
require File::Which;
File::Which::which("diff") or die "diffwc: Can't find diff in PATH\n";
}
sub parse_cmdline {
local @ARGV = @ARGV;
# updated to diff 3.3 + color
GetOptions(
normal => sub {},
'brief|q' => sub {},
'report-identical-files|s' => sub {},
view release on metacpan or search on metacpan
code_before_instantiate_cmdline=print "";
code_after_end==head1 DESCRIPTION
code_after_end=
code_after_end=Sample output:
code_after_end=
code_after_end=# CODE: { local @INC = ("lib", @INC); local @ARGV = qw(-l --format text-pretty); require Perinci::CmdLine::Lite; Perinci::CmdLine::Lite->new(url=>"/App/errnos/list_errnos", exit=>0)->run; }
[InsertCodeOutput]
[@Author::PERLANCAR]
:version=0.41
view release on metacpan or search on metacpan
lib/App/genconf.pm view on Meta::CPAN
}
sub run {
my ( $self, @args ) = @_;
local @ARGV = @args;
GetOptions(
'v|verbose!' => sub { ++$self->{verbose} },
'V|version!' => \$self->{version},
'config-dir=s' => \$self->{config_dir},
) or $self->usage;
view release on metacpan or search on metacpan
lib/App/git/ship/perl.pm view on Meta::CPAN
$self->abort(
"Project built. Run 'git ship' again to post dist to CPAN and remote repostitory.");
}
unless ($self->config('next_version')) {
close ARGV;
local @ARGV = $changelog;
while (<>) {
/^$VERSION_RE\s*/ or next;
$self->config(next_version => $1);
last;
}
view release on metacpan or search on metacpan
lib/App/grindperl.pm view on Meta::CPAN
if ( $self->opt->get_porting ) {
$self->vlog("Running 'make test_porting' with $test_jobs jobs");
$self->do_cmd("make -j $jobs test_porting")
or croak ("make test_porting failed");
}
elsif ( grep { /test_harness/ } do { local(@ARGV,$/) = "Makefile"; <>} ) {
$self->vlog("Running 'make test_harness' with $test_jobs jobs");
$self->do_cmd("make -j $jobs test_harness")
or croak ("make test_harness failed");
}
else {
view release on metacpan or search on metacpan
lib/App/installdeps.pm view on Meta::CPAN
return;
}
sub _process
{
local (@ARGV) = @_;
my %opts;
getopts(Getopt::Config::FromPod->string, \%opts);
pod2usage(-verbose => 2) if exists $opts{h};
pod2usage(-msg => 'At least one argument MUST be specified', -verbose => 0, -exitval => 1) if ! @ARGV;
view release on metacpan or search on metacpan
my $elps = sprintf "%.6f" , tv_interval $start_time ;
say STDERR CYAN "Files processed : $num ; Shown above : $shown ; Elapsed seconds : $elps" ;
}
sub HELP_MESSAGE { # <-- - サブコマンドãŒå‘¼ã°ã‚Œã¦ã„ã‚‹ã¨ãã¯ãã®ãƒ˜ãƒ«ãƒ—ãŒå‘¼ã°ã‚Œã‚‹ã€‚
local @ARGV = do { my ($x,@y) = 0 ; 1 while ( @y = caller $x++ )[ 0 ] eq "Getopt::Std" ; $y[1] } ;
Pod::Perldoc -> run ;
}
sub VERSION_MESSAGE { $ Getopt::Std::STANDARD_HELP_VERSION = 1 } # <- here?
view release on metacpan or search on metacpan
my $elps = sprintf "%.6f" , tv_interval $start_time ;
say STDERR CYAN "Files processed : $num ; Shown above : $shown ; Elapsed seconds : $elps" ;
}
sub HELP_MESSAGE { # <-- - サブコマンドãŒå‘¼ã°ã‚Œã¦ã„ã‚‹ã¨ãã¯ãã®ãƒ˜ãƒ«ãƒ—ãŒå‘¼ã°ã‚Œã‚‹ã€‚
local @ARGV = do { my ($x,@y) = 0 ; 1 while ( @y = caller $x++ )[ 0 ] eq "Getopt::Std" ; $y[1] } ;
Pod::Perldoc -> run ;
}
sub VERSION_MESSAGE { $ Getopt::Std::STANDARD_HELP_VERSION = 1 } ;
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
postamble <<"EOP";
install :: install_local_lib_helper
install_local_lib_helper :
\t\$(PERL) $local_lib_helper_script @ARGV
EOP
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
# ---
'}package DBDI;1;
DBI_DBD
$fatpacked{"DBI/DBD/Metadata.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_DBD_METADATA';
package DBI::DBD::Metadata;use strict;use Exporter ();use Carp;use DBI;use DBI::Const::GetInfoType qw(%GetInfoType);our@ISA=qw(Exporter);our@EXPORT=qw(write_getinfo_pm write_typeinfo_pm);our$VERSION="0.03";sub write_getinfo_pm {my ($dsn,$user,$pass...
# Transfer this to ${driver}.pm
# The get_info function was automatically generated by
# DBI::DBD::Metadata::write_getinfo_pm v$DBI::DBD::Metadata::VERSION.
view release on metacpan or search on metacpan
script/mkpkgconfig view on Meta::CPAN
main( @ARGV ) unless caller;
sub main {
local @ARGV = @_;
# save original options for output;
my @sARGV = @ARGV;
my $opt = parse_opts();
view release on metacpan or search on metacpan
t/metaonly.t view on Meta::CPAN
for my $c ( @cases ) {
my $wd = pushd( catdir( qw/corpus metaonly/ ) );
my @options = @{$c->{options}};
my $label = @options ? join(" ", @options) : "(default)";
local @ARGV = (@options);
my $app = App::mymeta_requires->new;
my %expected = %all_reqs;
delete $expected{$_} for @{ $c->{remove} };
my $output = capture { $app->run };
cmp_deeply( [split "\n", $output], bag(sort keys %expected), $label );
view release on metacpan or search on metacpan
lib/App/optex/util/filter.pm view on Meta::CPAN
######################################################################
######################################################################
sub io_filter (&@) {
my $sub = shift;
my %opt = @_;
local @ARGV;
if ($opt{PREFORK}) {
my $stdin = $sub->();
$sub = sub { print $stdin };
$opt{STDIN} = 1;
}
view release on metacpan or search on metacpan
bin/org-daemon view on Meta::CPAN
no warnings 'once';
# "local" probably does not work here, we're in a MainLoop...
$Data::Dumper::Deparse = 1; # if I need a "ptksh" window, then I need more diagnostics!
$Data::Dumper::Sortkeys = 1;
local @ARGV; # ptksh would read 1st argument as perl script
# Find the ptksh script
for $perldir (@perldirs) {
if (-r "$perldir/ptksh") {
require "$perldir/ptksh";
view release on metacpan or search on metacpan
lib/App/palien.pm view on Meta::CPAN
scalar $alien->libs;
}
sub main
{
local(undef, @ARGV) = @_;
my $bin_dir;
my $dir_sep = ' ';
my $cflags;
my $libs;
view release on metacpan or search on metacpan
our %config;
our ($img, $log);
# load configuration from file in current directory if given
{
if (local @ARGV = grep { -e $_ } qw(.ppprc ppp.conf)) {
while (<>) { # parse simple "key = value" pairs
$config{$1} = $2 if /^\s*(\w+)\s*=\s*(.*?)\s*$/;
}
}
}
view release on metacpan or search on metacpan
script/pause view on Meta::CPAN
},
},
default_subcommand => undef,
};
{
local @ARGV = @ARGV;
my $old_conf = Getopt::Long::EvenLess::Configure("pass_through");
Getopt::Long::EvenLess::GetOptions(%$go_spec1);
Getopt::Long::EvenLess::Configure($old_conf);
{ my $first_non_opt_arg; for (@ARGV) { next if /^-/; $first_non_opt_arg = $_; last } if (!length $_pci_r->{subcommand_name} && defined $first_non_opt_arg) { $_pci_r->{subcommand_name} = $first_non_opt_arg } }
}
view release on metacpan or search on metacpan
lib/App/perlbrew.pm view on Meta::CPAN
$opt{$_} = '' for keys %flavor;
if (@argv) {
# build a local @ARGV to allow us to use an older
# Getopt::Long API in case we are building on an older system
local (@ARGV) = @argv;
Getopt::Long::Configure(
'pass_through',
'no_ignore_case',
'bundling',
view release on metacpan or search on metacpan
lib/App/perlrdf/FileSpec/OutputBindings.pm view on Meta::CPAN
}
@row{ $iter->binding_names });
}
$s->close;
local @ARGV = $filename;
while (<>)
{
$self->handle->print($_);
}
}
view release on metacpan or search on metacpan
xt/cover.pl view on Meta::CPAN
chdir '..' or die "$!";
};
do "./Build.PL";
local @ARGV = (@ARGV, 'testcover');
do "./Build";
view release on metacpan or search on metacpan
lib/App/pfswatch.pm view on Meta::CPAN
};
}
sub parse_argv {
my $class = shift;
local @ARGV = @_;
my $p = Getopt::Long::Parser->new( config => ['pass_through'] );
$p->getoptions( \my %opts, 'pipe', 'quiet', 'help|h' );
my ( @path, @cmd );
view release on metacpan or search on metacpan
lib/App/plasm.pm view on Meta::CPAN
}) unless defined $main;
return $main->(@_);
}
else
{
local @ARGV = @_;
GetOptions(
'help|h' => sub { pod2usage({ -exitval => 0 }) },
'version|v' => sub { print "plasm version @{[ App::plasm->VERSION || 'dev' ]} Wasm.pm @{[ Wasm->VERSION ]}\n"; exit 0 },
) or pod2usage({ -exitval => 2 });
pod2usage({ -exitval => 2 });
view release on metacpan or search on metacpan
lib/App/pmuninstall.pm view on Meta::CPAN
}, $class;
}
sub run {
my ($self, @args) = @_;
local @ARGV = @args;
GetOptions(
'f|force' => \$self->{force},
'v|verbose!' => sub { ++$self->{verbose} },
'c|checkdeps!' => \$self->{check_deps},
'n|no-checkdeps!' => sub { $self->{check_deps} = 0 },
view release on metacpan or search on metacpan
lib/App/prove4air.pm view on Meta::CPAN
}
my ( $exec );
$exec = $ENV{TAP_VERSION} ? 1 : 0;
{
local @ARGV = @arguments;
GetOptions( exec => \$exec );
@arguments = @ARGV;
}
if ( $exec ) {
view release on metacpan or search on metacpan
lib/App/pwhich.pm view on Meta::CPAN
# ABSTRACT: Perl-only `which`
our $VERSION = '1.17'; # VERSION
sub main
{
local @ARGV;
my $prog;
($prog, @ARGV) = @_;
my %opts;
view release on metacpan or search on metacpan
}
# check and get command line arguments
@ARGV == 2 or die $usage;
my ( $hosts, $cmd ) = @ARGV;
my $contents = do { local ( @ARGV, $/ ) = $hosts; <> };
my @hosts = split ' ', $contents;
# username to use for ssh connections
my $user;
if ($u) {