view release on metacpan or search on metacpan
sub execute {
my $ll = shift; # Local Lib
my $b = shift; # bin
if (-f "$ll/bin/$b") {
exec "perl", "-Mlocal::lib=$ll", "$ll/bin/$b", @ARGV;
} else {
print "💀 Executable was found, but not installed correctly\n";
exit -1;
}
}
view release on metacpan or search on metacpan
lib/App/csv2sqlite.pm view on Meta::CPAN
sub getopt {
my ($class, $args) = @_;
my $opts = {};
{
local @ARGV = @$args;
my $p = Getopt::Long::Parser->new(
config => [qw(pass_through auto_help auto_version)],
);
$p->getoptions($opts,
'csv_files|csv-file|csvfile|csv=s@',
view release on metacpan or search on metacpan
t/lib/Test/Dategrep.pm view on Meta::CPAN
sub test_dategrep {
my ( $argv, $output, $name ) = @_;
no warnings 'once';
local $App::dategrep::app = 'dategrep';
local @ARGV = @$argv if $argv;
combined_is { App::dategrep->new->run } $output, $name;
}
1;
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;
}
lib/App/git/ship/perl.pm view on Meta::CPAN
my $self = shift;
my $changelog = $self->config('changelog_filename');
my ($version, @message);
close ARGV; # reset <> iterator
local @ARGV = $changelog;
while (<>) {
last if @message and /^$VERSION_RE\s+/;
push @message, $_ if @message;
push @message, $_ and $version = $1 if /^$VERSION_RE\s+/;
}
lib/App/git/ship/perl.pm view on Meta::CPAN
warn "MANIFEST.SKIP included file '$file' not found - skipping\n";
return '';
}
@lines = ("#!start included $file\n");
local @ARGV = ($file);
push @lines, $_ while <>;
return join "", @lines, "#!end included $file\n";
}
sub _make {
lib/App/git/ship/perl.pm view on Meta::CPAN
$str = strftime $str, localtime;
setlocale LC_TIME, $loc;
return $str;
};
local @ARGV = $changelog;
local $^I = '';
while (<>) {
$self->config(next_version => $1)
if s/^$VERSION_RE\x20*(?:Not Released)?\x20*([\r\n]+)/{ $release_line->($1) . $2 }/e;
print; # print back to same file
lib/App/git/ship/perl.pm view on Meta::CPAN
sub _update_version_info {
my $self = shift;
my $version = $self->config('next_version')
or $self->abort('Internal error: Are you sure Changes has a timestamp?');
local @ARGV = ($self->config('main_module_path'));
local $^I = '';
my %r;
while (<>) {
$r{pod} ||= s/$VERSION_RE/$version/ if /^=head1 VERSION/ .. $r{pod} && /^=(cut|head1)/ || eof;
$r{var} ||= s/((?:our)?\s*\$VERSION)\s*=.*/$1 = '$version';/;
view release on metacpan or search on metacpan
lib/App/grepurl.pm view on Meta::CPAN
exit;
}
my %opts;
{
local @ARGV = @args;
getopts( 'bdv1' . 'aAiIjJ' . 'e:E:f:h:H:p:P:s:S:t:u:', \%opts );
}
# print STDERR Dumper( \%opts ); use Data::Dumper;
# print STDERR "Processed opts\n";
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.
mimi.fatpack view on Meta::CPAN
END
DBI_PROFILEDATA
$fatpacked{"DBI/ProfileDumper.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER';
package DBI::ProfileDumper;use strict;use DBI::Profile;our@ISA=("DBI::Profile");our$VERSION="0.03";use Carp qw(croak);use Fcntl qw(:flock);use Symbol;my$HAS_FLOCK=(defined$ENV{DBI_PROFILE_FLOCK})? $ENV{DBI_PROFILE_FLOCK}: do {local $@;eval {flock S...
DBI_PROFILEDUMPER
$fatpacked{"DBI/ProfileDumper/Apache.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_PROFILEDUMPER_APACHE';
package DBI::ProfileDumper::Apache;use strict;our$VERSION="0.03";our@ISA=qw(DBI::ProfileDumper);use DBI::ProfileDumper;use File::Spec;my$initial_pid=$$;use constant MP2=>($ENV{MOD_PERL_API_VERSION}and $ENV{MOD_PERL_API_VERSION}==2)? 1 : 0;my$server...
DBI_PROFILEDUMPER_APACHE
mimi.fatpack view on Meta::CPAN
$fatpacked{"DBI/W32ODBC.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_W32ODBC';
package DBI;${'DBI::VERSION'}="0.01";my$Revision=sprintf("12.%06d",q$Revision: 8696 $ =~ /(\d+)/o);sub DBI::W32ODBC::import {}use Carp;use Win32::ODBC;@ISA=qw(Win32::ODBC);use strict;$DBI::dbi_debug=$ENV{PERL_DBI_DEBUG}|| 0;carp "Loaded (W32ODBC) D...
DBI_W32ODBC
$fatpacked{"Docopt.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT';
use 5.008005;use strict;use warnings FATAL=>'all';package Docopt;use Docopt::Util qw(string_partition in serialize defined_or);package Docopt::Pattern;use Docopt::Util qw(defined_or);sub new {my$class=shift;bless [],$class}sub fix {my$self=shift;$s...
DOCOPT
$fatpacked{"Docopt/Util.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DOCOPT_UTIL';
package Docopt::Util;use strict;use warnings;use utf8;use parent qw(Exporter);use boolean;our@EXPORT_OK=qw(repl class_name string_strip string_partition in True False is_number defined_or serialize pyprint);sub True() {true}sub False() {false}use D...
DOCOPT_UTIL
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD';
package Module::Build;use if $] >= 5.019,'deprecate';use 5.006;use strict;use warnings;use File::Spec ();use File::Path ();use File::Basename ();use Perl::OSType ();use Module::Build::Base;our@ISA=qw(Module::Build::Base);our$VERSION='0.03';$VERSION...
MODULE_BUILD
$fatpacked{"Module/Build/Base.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_BASE';
package Module::Build::Base;use 5.006;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;use Carp;use Cwd ();use File::Copy ();use File::Find ();use File::Path ();use File::Basename ();use File::Spec 0.82 ();use File::Compare ();use M...
ERRORS/WARNINGS FOUND IN PREREQUISITES. You may wish to install the versions
of the modules indicated above before proceeding with this installation
EOF
mimi.fatpack view on Meta::CPAN
$fatpacked{"Module/Build/PodParser.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_PODPARSER';
package Module::Build::PodParser;use strict;use warnings;our$VERSION='0.03';$VERSION=eval$VERSION;sub new {my$package=shift;my$self;$self=bless {have_pod_parser=>0,@_},$package;unless ($self->{fh}){die "No 'file' or 'fh' parameter given" unless$sel...
MODULE_BUILD_PODPARSER
$fatpacked{"Module/Build/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'MODULE_BUILD_TINY';
package Module::Build::Tiny;$Module::Build::Tiny::VERSION='0.03';use strict;use warnings;use Exporter 5.57 'import';our@EXPORT=qw/Build Build_PL/;use CPAN::Meta;use ExtUtils::Config 0.003;use ExtUtils::Helpers 0.020 qw/make_executable split_like_sh...
MODULE_BUILD_TINY
$fatpacked{"Test/Fatal.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'TEST_FATAL';
use strict;use warnings;package Test::Fatal;$Test::Fatal::VERSION='0.03';use Carp ();use Try::Tiny 0.07;use Exporter 5.57 'import';our@EXPORT=qw(exception);our@EXPORT_OK=qw(exception success dies_ok lives_ok);our ($REAL_TBL,$REAL_CALCULATED_TBL)=(1...
TEST_FATAL
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/pingu.pm view on Meta::CPAN
# private option handling
#
if (@$argv and $argv->[0] !~ /^-M/ and
defined(my $i = first { $argv->[$_] eq '--' } keys @$argv)) {
splice @$argv, $i, 1; # remove '--'
if (local @ARGV = splice @$argv, 0, $i) {
use Getopt::Long qw(GetOptionsFromArray);
Getopt::Long::Configure qw(bundling);
GetOptions \%opt, hash_to_spec \%opt or die "Option parse error.\n";
}
}
view release on metacpan or search on metacpan
lib/App/optex/scroll.pm view on Meta::CPAN
# private option handling
#
if (@$argv and $argv->[0] !~ /^-M/ and
defined(my $i = first { $argv->[$_] eq '--' } keys @$argv)) {
splice @$argv, $i, 1; # remove '--'
if (local @ARGV = splice @$argv, 0, $i) {
use Getopt::Long qw(GetOptionsFromArray);
Getopt::Long::Configure qw(bundling);
GetOptions \%opt, hash_to_spec \%opt or die "Option parse error.\n";
}
}
my $i = first { $argv->[$_] eq '--' } keys @$argv;
if (defined $i and $argv->[0] !~ /^-M/) {
splice @$argv, $i, 1; # remove '--'
if (local @ARGV = splice @$argv, 0, $i) {
use Getopt::Long qw(GetOptionsFromArray);
Getopt::Long::Configure qw(bundling);
GetOptions \%opt, hash_to_spec \%opt or die "Option parse error.\n";
}
}
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',
lib/App/perlbrew.pm view on Meta::CPAN
sub run_command_exec {
my $self = shift;
my %opts;
local (@ARGV) = @{ $self->{original_argv} };
Getopt::Long::Configure('require_order');
my @command_options = ( 'with=s', 'halt-on-error', 'min=s', 'max=s' );
$self->parse_cmdline( \%opts, @command_options );
view release on metacpan or search on metacpan
t/cli-args.t view on Meta::CPAN
);
EOF
my $log_file = Path::Tiny->tempfile('perlimportsXXXXXXXX');
local @ARGV = (
'--ignore-modules' => 'CGI,Plack',
'--ignore-modules-filename' => 'test-data/ignore-modules.txt',
'--ignore-modules-pattern' => '^(Foo|Foo::Bar)',
'--ignore-modules-pattern-filename' =>
'test-data/ignore-modules-pattern.txt',
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 });
lib/App/plasm.pm view on Meta::CPAN
my $sandbox;
sub main
{
local @ARGV = @_;
Getopt::Long::Configure('require_order');
my @pod = (-verbose => 99, -sections => "SUBCOMMANDS/run");
lib/App/plasm.pm view on Meta::CPAN
use Getopt::Long qw( GetOptions );
use Wasm::Wasmtime 0.08;
sub main
{
local @ARGV = @_;
my @pod = (-verbose => 99, -sections => "SUBCOMMANDS/run");
GetOptions(
'help|h' => sub { pod2usage({ -exitval => 0, @pod }) },
lib/App/plasm.pm view on Meta::CPAN
use Wasm::Wasmtime::Wat2Wasm qw( wat2wasm );
use Path::Tiny qw( path );
sub main
{
local @ARGV = @_;
my @pod = (-verbose => 99, -sections => "SUBCOMMANDS/wat");
GetOptions(
'help|h' => sub { pod2usage({ -exitval => 0, @pod }) },