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', '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',
t/cli-args.t view on Meta::CPAN
is( $c->tidy_whitespace, 0, 'tidy_whitespace' );
};
# --- sort option plumbing ---
{
local @ARGV = ( '--no-config-file', 'lib/App/perlimports.pm' );
my $cli = App::perlimports::CLI->new;
is( $cli->_config->sort, 0, 'sort defaults to false' );
}
{
local @ARGV = ( '--no-config-file', '--sort', 'lib/App/perlimports.pm' );
my $cli = App::perlimports::CLI->new;
is( $cli->_config->sort, 1, '--sort sets config sort true' );
}
done_testing();
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});