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.
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
ed {ED}
);
sub run {
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
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(
view release on metacpan or search on metacpan
sub http_get {
my ( $url, %query ) = @_;
if ( $OPT{response} ) {
local ( @ARGV, $/ ) = $OPT{response};
return <>;
}
require HTTP::Tiny;
my $http = HTTP::Tiny->new(
view release on metacpan or search on metacpan
lib/App/week.pm view on Meta::CPAN
exit 2;
}
sub run {
my $app = shift;
local @ARGV = decode_argv @_;
$app->read_option()
->argv()
->deal_option()
->prepare()
view release on metacpan or search on metacpan
lib/App/whichdll.pm view on Meta::CPAN
our $VERSION = '0.04'; # VERSION
sub main
{
local @ARGV;
(undef, @ARGV) = @_;
my %opts;
my @alien;
view release on metacpan or search on metacpan
lib/App/winmaildat2tar.pm view on Meta::CPAN
action => sub { say $VERSION; exit };
}
no Getopt::EX::Hashed;
sub run {
(my $app, local @ARGV) = splice @_;
$app->getopt or pod2usage();
my $archive;
@ARGV or usage();
view release on metacpan or search on metacpan
lib/Applify.pm view on Meta::CPAN
sub app {
my $self = shift;
$self->{app} = shift if @_;
# Activate sub command
local @ARGV = @ARGV;
shift @ARGV if $self->_subcommand_activate($ARGV[0]);
my (%argv, @spec);
$self->_run_hook(before_options_parsing => \@ARGV);
view release on metacpan or search on metacpan
inc/Devel/PPPort.pm view on Meta::CPAN
$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;
view release on metacpan or search on metacpan
xs/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;