view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
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
# load the options file from the style directory:
my $style_opts = "$style_dir/$style/$style.cfg";
if (! -e $style_opts) {
die "*** ERROR: cannot find options file $style_opts !\n";
}
{ local @ARGV = ( "\@$style_opts" );
argvFile();
die unless GetOptions( \%OPT_STYLE, # get new options from style
@OPTIONS
);
# merge main options into style options
view release on metacpan or search on metacpan
}
sub get_options {
my ($aflag, $vflag);
while (@ARGV && $ARGV[0] =~ /^-(.)/) {
local $_ = shift @ARGV;
return if $_ eq '--';
if (s/^-a//) {
help() if $vflag;
$aflag = 1;
my $f = get_file_number('a');
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
inc/Module/Install/Catalyst.pm view on Meta::CPAN
else {
my $p = Getopt::Long::Parser->new(config => ['no_ignore_case']);
my %o;
require Text::ParseWords;
{
local @ARGV = Text::ParseWords::shellwords($optstring);
$p->getoptions(\%o, PAR::Packer->options);
}
%PAROPTS = ( %PAROPTS, %o);
}
}
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
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
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
sub parse_from_argv {
my ($class, $argv) = @_;
my $orig_cmd = do {
local @ARGV = @$argv;
() = describe_options('', $class->global_opt_spec, { getopt_conf => ['gnu_getopt', 'pass_through'] });
print($class->help_summary), exit
if !@ARGV; # "pintor", "pintor --help", "pintor -r URL", "pintor --username fred", etc
$ARGV[0];
};
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
};
my $usage_desc = $info->{usage_desc};
my @opt_spec = (@{ $info->{opt_spec} }, [], $class->global_opt_spec);
local @ARGV = @$argv;
my ($opt, $usage) = describe_options($usage_desc, @opt_spec, { getopt_conf => ['gnu_getopt'] });
die "BUG; cmd=$cmd but not next in argv"
if !@ARGV || shift(@ARGV) ne $orig_cmd;
lib/Pinto/Remote/SelfContained/App.pm view on Meta::CPAN
warn "No command '$cmd' found\n\n";
$exit_status = 2;
next;
};
my (undef, $usage) = do {
local @ARGV;
describe_options($info->{usage_desc}, [], @{ $info->{opt_spec} }, {
getopt_conf => ['gnu_getopt', 'pass_through'],
});
};
say $usage->text;
view release on metacpan or search on metacpan
}; \$$2
};local $^W=0;local$SIG{__WARN__}=sub {};$result=eval($eval);if ($@ or!defined$result){die +{eval=>$eval,line=>$current_parsed_line,file=>$parsefile,err=>$@,}}last}close FH;$result="undef" unless defined$result;return$result}}sub _filter_ppps...
APP_CPANMINUS_PARSEPM
$fatpacked{"App/cpanminus/script.pm"} = <<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();use Parse::CPAN::Meta;use Symbol ...
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/RPC/PlServer.pm view on Meta::CPAN
my $socket = $self->{'socket'};
}
# Create an instance of the MyServer class
package main;
my $server = MyServer->new({'localport' => '1234'}, \@ARGV);
# Bind the server to its port to make it actually running
$server->Bind();
view release on metacpan or search on metacpan
local/lib/perl5/App/Cmd/ArgProcessor.pm view on Meta::CPAN
# ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
sub _process_args {
my ($class, $args, @params) = @_;
local @ARGV = @$args;
require Getopt::Long::Descriptive;
Getopt::Long::Descriptive->VERSION(0.084);
my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params);
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
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
push_seealso [ uc($id) ], "1:$id", "2:$id", "3:$id";
},
# Stylesheet => 1,
);
sub read_file { do { local( @ARGV, $/ ) = $_[0] ; <> } }
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->(GET "/?id=a:b&format=seealso");
view release on metacpan or search on metacpan
t/02certs.t view on Meta::CPAN
if (my $child = fork)
{
sleep 1;
my $got_cert = get('/test');
my $expected_cert = do { local(@ARGV, $/) = $ENV{HTTPS_CERT_FILE}; <> };
is(parsed($got_cert), parsed($expected_cert));
kill 9, $child; # a bit harsh, I know
exit(0);
}
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
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
t/transform.t view on Meta::CPAN
use lib "$Bin/lib";
use MockUserAgent;
sub read_file {
my $file = shift;
return do { local(@ARGV,$/) = $file;<> }
}
my $backend = sub {
my $env = shift;
my $request = Plack::Request->new($env);
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/Plack/Runner.pm view on Meta::CPAN
}
sub parse_options {
my $self = shift;
local @ARGV = @_;
# From 'prove': Allow cuddling the paths with -I, -M and -e
@ARGV = map { /^(-[IMe])(.+)/ ? ($1,$2) : $_ } @ARGV;
my($host, $port, $socket, @listen);
view release on metacpan or search on metacpan
$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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
$copy =~ s/^(?=\S+)/ /gms;
$self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
view release on metacpan or search on metacpan
t/lib/Pod/Confluence/TestUtil.pm view on Meta::CPAN
sub slurp {
my ($file) = @_;
# http://www.perl.com/pub/2003/11/21/slurp.html
return $file
? do { local ( @ARGV, $/ ) = $file; <> }
: do { local $/; <STDIN> };
}
sub spurt {
my ( $content, $file, %options ) = @_;
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
my @stat_tmpdir = stat $ENV{POD_CPANDOC_CACHE_ROOT};
diag("@stat_tmpdir");
subtest 'no option or -m' => sub {
local @ARGV = ('Acme::No');
my ($stdout, $stderr, $exit) = capture {
Pod::Cpandoc::Cache->run();
};
diag ("$stderr, $exit");
view release on metacpan or search on metacpan
lib/Pod/Elemental/Transformer/ExampleRunner.pm view on Meta::CPAN
sub _source {
my ($self, $node, $subcommand) = @_;
my ($filename, @args) = split ' ', $subcommand;
my $path = $self->script_path . $filename;
my $source = do {
local (@ARGV,$/) = $path;
<>
};
$source = $self->remove_yadas_from($source);
$source = $self->indent_text_in($source);
chomp $source;
view release on metacpan or search on metacpan
}
my $hashead;
sub pod2html {
local(@ARGV) = @_;
local($/);
local $_;
init_globals();
view release on metacpan or search on metacpan
SKIP: {
skip "Moose not installed", 1 unless Test::JMM::has_moose;
my $pi_moose = Pod::Inherit->new({ input_files => [ 't/auxlib/MooseSub.pm' ] });
$pi_moose->write_pod;
my $output = do { local (@ARGV, $/) = "t/auxlib/MooseSub.pod"; <> || 'NO OUTPUT' };
$output =~ s/=item L<Moose::Object>\n\n(.+)/=item L<Moose::Object>\n\n(some methods here)/;
eq_or_diff(
$output,
do { local (@ARGV, $/) = "t/baseline/auxlib/MooseSub.pod"; <> || 'NO BASELINE' },
"MooseSub - Moose extends, existing POD - out_dir unset");
# ok(!-e 't/lib/MooseSub.pod', "Moose extends, existing POD");
unlink "t/auxlib/MooseSub.pod";
}
SKIP: {
skip "Class::C3 not installed", 1 unless Test::JMM::has_c3;
my $pi_c3 = Pod::Inherit->new({ input_files => [ 't/auxlib/ClassC3Sub.pm' ] });
$pi_c3->write_pod;
eq_or_diff(
do { local (@ARGV, $/) = "t/auxlib/ClassC3Sub.pod"; <> || 'NO OUTPUT' },
do { local (@ARGV, $/) = "t/baseline/auxlib/ClassC3Sub.pod"; <> || 'NO BASELINE' },
'ClassC3Sub - "use base" Class::C3 class, existing POD - out_dir unset');
# ok(!-e 't/lib/ClassC3Sub.pod', '"use base" Class::C3 class, existing POD');
unlink "t/auxlib/ClassC3Sub.pod";
}
view release on metacpan or search on metacpan
lib/Pod/L10N/Html.pm view on Meta::CPAN
my $class = shift;
return bless {}, $class;
}
sub pod2htmll10n {
local(@ARGV) = @_;
local $_;
my $self = Pod::L10N::Html->new();
$self->init_globals();