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', 'nopass_through' );
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 }) },
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
bin/plx-packed view on Meta::CPAN
$fatpacked{"lib/core/only.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LIB_CORE_ONLY';
package lib::core::only;use strict;use warnings FATAL=>'all';use Config;sub import {@INC=@Config{qw(privlibexp archlibexp)};return}1;
LIB_CORE_ONLY
$fatpacked{"local/lib.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'LOCAL_LIB';
package local::lib;use 5.006;use strict;use warnings;use Config;our$VERSION='2.000015';$VERSION=eval$VERSION;BEGIN {*_WIN32=($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'symbian')? sub(){1}: sub(){0};*_USE_FSPEC=($^O eq 'MacOS' || $^O eq 'VMS'...
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
view release on metacpan or search on metacpan
lib/App/pmdeps.pm view on Meta::CPAN
}
sub run {
my ( $self, @args ) = @_;
local @ARGV = @args;
GetOptions(
't|timeout=i' => \$self->{timeout},
'p|perl-version=f' => \$self->{perl_version},
'l|local=s', => \$self->{local},
'without-phase=s@' => \$self->{without_phase},
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) {
view release on metacpan or search on metacpan
script/reposdb-inline 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/revealup/cli.pm view on Meta::CPAN
};
sub run {
my ($self, @args) = @_;
local @ARGV = @args;
my @commands;
push @commands, @ARGV;
my $command = shift @commands;
if($command) {
view release on metacpan or search on metacpan
$pkg->VERSION($ver);
};
}
}
sub rf {
local (@ARGV, $/) = @_;
<>;
}
1;
view release on metacpan or search on metacpan
use Path::Tiny qw/ path tempdir tempfile cwd /;
use App::rshasum ();
{
local @ARGV = ( "--digest=SHA-256", "/" );
eval { App::rshasum->run(); };
my $err = $@;
view release on metacpan or search on metacpan
lib/App/runscript.pm view on Meta::CPAN
use File::Which qw( which );
use Getopt::Std qw( getopts );
use POSIX qw( EXIT_SUCCESS );
sub main ( \@ ) {
local @ARGV = @{ $_[ 0 ] };
my $opts;
{
local $SIG{ __WARN__ } = sub {
local @CARP_NOT = qw( Getopt::Std );
view release on metacpan or search on metacpan
my @path = File::Spec->splitdir( $path );
my $file = pop @path;
$show_message->( "File is $file\n" );
if( @path ) {
local @ARGV = catfile( $Defaults{directory}, @path );
ExtUtils::Command::mkpath unless -d $ARGV[0];
}
my $output = catfile( $Defaults{directory}, $path );
$show_message->( "Output is $file\n" );
view release on metacpan or search on metacpan
lib/App/watchdiff.pm view on Meta::CPAN
decrc {DECRC}
);
sub run {
$app = my $opt = shift;
local @ARGV = @_;
use Getopt::EX::Long;
Getopt::Long::Configure(qw(bundling require_order));
$opt->getopt or usage({status => 1});
view release on metacpan or search on metacpan
lib/App/sh2p/Builtins.pm view on Meta::CPAN
my $newline = 1;
my $handle = '';
my $opt_u;
my %options;
local @ARGV;
my $redirection = '';
my $file = '';
my $from_fd = ''; # TODO - not currently supported
lib/App/sh2p/Builtins.pm view on Meta::CPAN
sub do_read {
my %args;
my $prompt = 'undef';
my $ntok;
local @ARGV;
# First argument is 'read'
shift @_;
$ntok++;
lib/App/sh2p/Builtins.pm view on Meta::CPAN
########################################################
sub do_touch {
my $ntok = @_;
my $cmd = shift;
local @ARGV = @_;
my %args;
getopts ('acdfmr:t', \%args);
if (keys %args) {
error_out "$cmd options not currently supported";
lib/App/sh2p/Builtins.pm view on Meta::CPAN
my ($cmd, @args) = @_;
my $ntok = 1;
my %args;
local @ARGV = @args;
getopts ('cCsd', \%args);
if (keys %args) {
error_out "$cmd options not currently supported";
}
lib/App/sh2p/Builtins.pm view on Meta::CPAN
#print STDERR "do_typeset: $_[0]\n";
# First argument should be 'typeset' or 'declare'
shift @_;
local @ARGV = @_;
getopts ('UPRTUXLRZ:iftux', \%args);
my %type = (i => 'int',
l => 'lc',
view release on metacpan or search on metacpan
my $dir = File::Temp::tempdir();
my $exit;
sub run { system($^X, 'script/skos2jskos', @_); $exit = $? >> 8 }
sub slurp_json { local (@ARGV,$/) = shift; JSON->new->decode(<>) }
output_is { run('-v','t/ex/empty.ttl') }
"Reading RDF files\n1 triples from t/ex/empty.ttl\n",
"RDF contains no skos:ConceptScheme\n",
"no scheme";
view release on metacpan or search on metacpan
lib/App/soapcli.pm view on Meta::CPAN
sub new_with_options {
my ($class, %args) = @_;
my $argv = delete $args{argv};
local @ARGV = $argv ? @$argv : @ARGV;
my ($opts, $usage) = Getopt::Long::Descriptive::describe_options(
"$0 %o data.yml [http://schema | schema.url] [endpoint#port] [operation]",
[ 'verbose|v', 'verbose mode with messages trace', ],
[ 'dump-xml-request|x', 'dump request as XML document', ],
view release on metacpan or search on metacpan
lib/App/spaceless.pm view on Meta::CPAN
}
sub main
{
shift;
local @ARGV = @_;
my $shell;
my $file;
my $help;
my $version;
my $trim;
view release on metacpan or search on metacpan
script/sshwrap-hostcolor view on Meta::CPAN
use Getopt::Long qw(:config bundling no_ignore_case);
use XTerm::Util qw(get_term_bgcolor set_term_bgcolor);
my $userhost;
sub parse_cmdline {
local @ARGV = @ARGV;
local $SIG{__WARN__} = sub {};
my %go_spec = map { $_ => sub {} } keys %AppLib::sshwrap::optspec;
delete $go_spec{'{arg}'};
$go_spec{'<>'} = sub {
view release on metacpan or search on metacpan
lib/App/sslmaker.pm view on Meta::CPAN
sub _cat {
my $self = shift;
my $dest = pop;
open my $DEST, '>', $dest or croak "Couldn't write $dest: $!";
local @ARGV = @_;
print $DEST $_ for <>;
close $DEST or croak "Couldn't close $dest: $!";
return $dest;
}
view release on metacpan or search on metacpan
lib/App/starbucksloginator.pm view on Meta::CPAN
my $self = shift;
my @arguments = @_;
my ( $help, $agent );
{
local @ARGV = @arguments;
GetOptions(
'agent=s' => \$agent,
'help|h|?' => \$help,
);
}
view release on metacpan or search on metacpan
lib/App/tmclean.pm view on Meta::CPAN
}
sub parse_options {
my ($class, @argv) = @_;
local @ARGV = @argv;
GetOptions(\my %opt, qw/
days=i
before=s
dry-run
/) or pod2usage(2);
view release on metacpan or search on metacpan
lib/App/unbelievable/CLI.pm view on Meta::CPAN
sub run {
require Getopt::Long::Subcommand;
require Pod::Usage;
my $args = shift or die "No args";
local @ARGV = @$args;
my %opts = ( # Defaults
verbose => 0
);
my $res = Getopt::Long::Subcommand::GetOptions(