view release on metacpan or  search on metacpan

bin/cpx  view on Meta::CPAN

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

dist.ini  view on Meta::CPAN

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

lastaccess  view on Meta::CPAN

	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

lasttouch  view on Meta::CPAN

  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/glob.pm  view on Meta::CPAN

sub finalize {
    my($mod, $argv) = @_;
    my $i = (first { $argv->[$_] eq '--' } keys @$argv) // return;
    splice @$argv, $i, 1; # remove '--'
    local @ARGV = splice @$argv, 0, $i or return;

    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/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

bin/ppp  view on Meta::CPAN

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 });