view release on metacpan or search on metacpan
inc/Module/Build/Sqitch.pm view on Meta::CPAN
}
sub _set_findbin {
my ($self, $file) = @_;
local $^I = '';
local @ARGV = ($file);
while (<>) {
s{^BEGIN}{use FindBin;\nuse lib "\$FindBin::RealBin/../lib/perl5";\nBEGIN};
print;
}
}
view release on metacpan or search on metacpan
lib/App/Stacktrace.pm view on Meta::CPAN
return;
}
sub _read_arguments {
my $self = shift;
local @ARGV = @_;
my %args;
Getopt::Long::GetOptions(
\ %args,
'help',
'm',
view release on metacpan or search on metacpan
# '--no-recursive',
'--style' => 'Test',
# '-vvvvv',
);
{
local @ARGV;
push @ARGV, @default_ARGV;
push @ARGV, 'build';
push @ARGV, $work_dir;
my $app = App::StaticImageGallery->new_with_options();
$app->run();
view release on metacpan or search on metacpan
t/app-table2yaml.t view on Meta::CPAN
my ( %yml, @test );
foreach my $file ( keys %test_file ) {
my ( $name, $dir, $suffix ) = fileparse( $file, qr{\.[^.]*$} );
if ( $suffix eq q(.yml) ) {
my $yml = do { local ( @ARGV, $/ ) = $file; <> };
$yml{$name} = [ split m{\n}msx, $yml ];
next;
}
my $type = basename($dir);
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
return $package->resume;
}
sub current {
# hmm, wonder what the right thing to do here is
local @ARGV;
return shift()->resume;
}
sub _construct {
my ($package, %input) = @_;
view release on metacpan or search on metacpan
lib/App/Term/Jump.pm view on Meta::CPAN
I<Exceptions> - invalid options
=cut
local @ARGV = @_ ;
my %options = (ignore_path => []) ;
$options{db_location} = defined $ENV{APP_TERM_JUMP_DB} ? $ENV{APP_TERM_JUMP_DB} : home() . '/.jump_db' ;
$options{config_location} = defined $ENV{APP_TERM_JUMP_CONFIG} ? $ENV{APP_TERM_JUMP_CONFIG} : home() . '/.jump_config' ;
view release on metacpan or search on metacpan
lib/App/Timestamper/Format.pm view on Meta::CPAN
sub run
{
my ($self) = @_;
local @ARGV = @{ $self->{_argv} };
STDOUT->autoflush(1);
App::Timestamper::Format::Filter::TS->new->fh_filter( \*ARGV,
sub { print $_[0]; } );
view release on metacpan or search on metacpan
lib/App/Timestamper.pm view on Meta::CPAN
sub run
{
my ($self) = @_;
local @ARGV = @{ $self->{_argv} };
STDOUT->autoflush(1);
App::Timestamper::Filter::TS->new->fh_filter( \*ARGV,
sub { print $_[0]; } );
view release on metacpan or search on metacpan
lib/App/Uni.pm view on Meta::CPAN
my ($class, @argv) = @_;
my %opt;
{
my $exit;
local @ARGV = @argv;
GetOptions(
"c" => \$opt{explode},
"u" => \$opt{u_numbers},
"n" => \$opt{names},
"s" => \$opt{single},
view release on metacpan or search on metacpan
sub continuity_server {
my ($app) = @_;
chdir($app->{dir});
my $harness = "$app->{dir}/vw_harness.pl";
if (-e $harness) {
local @ARGV = %$app;
eval { do $harness; };
# ...and never return.
# But if it fails for some reason...
my $error = $@ || "$harness could not be started.";
syslog(LOG_ERR, "$app->{app}: $error");
view release on metacpan or search on metacpan
lib/Wallflower/Util.pm view on Meta::CPAN
)
}x;
sub _links_from_css {
my ( $file, $url ) = @_;
my $content = do { local ( *ARGV, $/ ); @ARGV = ("$file"); <> };
return map URI->new_abs( $_, $url ), grep defined,
$content =~ /$css_regexp/gc;
}
1;
view release on metacpan or search on metacpan
lib/App/Wx/PodEditor/Actions/File.pm view on Meta::CPAN
sub file_OpenFile {
my ($self,$event) = @_;
my $file = Wx::FileSelector( 'Open a Pod file', '', '', 'Pod file (*.pod) | *.pod' );
if( $file ){
my $content = do{ local (@ARGV,$/) = $file; <> };
$self->_editor->set_pod( $content );
}
}
sub file_SaveFile {
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
lib/App/ansicolumn.pm view on Meta::CPAN
}
}
sub perform {
my $obj = shift;
local @ARGV = decode_argv(@_);
$obj->getopt || pod2usage(2);
$obj->setup_options;
warn Dumper $obj if $obj->debug;
view release on metacpan or search on metacpan
lib/App/ansiexpand.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(:DEFAULT ExConfigure Configure);
ExConfigure BASECLASS => [ __PACKAGE__, 'Getopt::EX' ];
Configure qw(bundling pass_through);
$app->getopt || pod2usage();
view release on metacpan or search on metacpan
lib/App/ansifold.pm view on Meta::CPAN
} no Getopt::EX::Hashed;
sub run {
my $app = shift;
local @ARGV = @_;
$app->options->params->doit;
return 0;
}
sub options {
view release on metacpan or search on metacpan
lib/App/assh.pm view on Meta::CPAN
"$ENV{HOME}/.autossh_rc"
},
);
method _build_hosts {
$_ = do { local(@ARGV, $/) = $->ssh_config_file; <>; };
s/\s+/ /g;
my $ret = {};
while (m<Host\s(.+?)\sHostName\s(.+?)\sUser\s(.+?)\s>xg) {
$ret->{$1} = { NAME => $2, USER => $3 }
view release on metacpan or search on metacpan
lib/App/bk.pm view on Meta::CPAN
sub backup_files {
# make sure we don't clobber any callers variables
local @ARGV = @ARGV;
GetOptions( \%options, keys(%opts) ) || pod2usage( -verbose => 1 );
die("Version: $VERSION\n") if ( $options{version} );
pod2usage( -verbose => 1 ) if ( $options{'?'} || $options{help} );
pod2usage( -verbose => 2 ) if ( $options{HELP} || $options{man} );
view release on metacpan or search on metacpan
lib/App/cat/v.pm view on Meta::CPAN
} no Getopt::EX::Hashed;
sub run {
my $app = shift;
local @ARGV = splice @_;
$app->options->setup->doit;
return 0;
}
sub options {
view release on metacpan or search on metacpan
script/cloudconvert view on Meta::CPAN
pod2usage(-verbose => 2) if ($opt{man});
## Read configuration
my $configfile = $opt{config} || 'cloudconvert.json';
if (-e $configfile) {
my $config = decode_json(do {local (@ARGV, $/) = $configfile; <>});
foreach (keys %$config) {
$opt{$_} = $config->{$_} unless exists $opt{$_}
}
}
view release on metacpan or search on metacpan
t/commons.pl view on Meta::CPAN
# Call the main subroutine and return its STDOUT and STDERR. Hack:
# ignore STDERR if it has a very specific string (it is done to avoid
# exit(0) in the tested script.
# -----------------------------------------------------------------
sub my_run {
local @ARGV = @_;
my ($stdout, $stderr);
eval {
capture { App::combinesheets->run() } \$stdout, \$stderr;
};
if ($@) {
view release on metacpan or search on metacpan
lib/App/cpangitify.pm view on Meta::CPAN
sprintf "%s <%s>", $cache->{$cpanid}->{name}, $email;
}
sub main ($, @args)
{
local @ARGV = @args;
no warnings 'redefine';
local *Git::Wrapper::RUN = \&_run_wrapper;
use warnings;
my %skip;
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
}
sub parse_options {
my $self = shift;
local @ARGV = @{$self->{argv}};
push @ARGV, grep length, split /\s+/, $self->env('OPT');
push @ARGV, @_;
Getopt::Long::Configure("bundling");
Getopt::Long::GetOptions(
view release on metacpan or search on metacpan
t/constructors.t view on Meta::CPAN
use App::cpanoutdated::fresh;
sub canspawn {
my (@args) = @_;
my $reason = pop @args;
local @ARGV = @args;
is( exception { App::cpanoutdated::fresh->new_from_command() }, undef, $reason );
}
canspawn('no args');
canspawn( '--age=1h', 'age' );
view release on metacpan or search on metacpan
}
sub parse_options {
my $self = shift;
local @ARGV = @{$self->{argv}};
push @ARGV, split /\s+/, $self->env('OPT');
push @ARGV, @_;
Getopt::Long::Configure("bundling");
Getopt::Long::GetOptions(
view release on metacpan or search on metacpan
lib/App/cpm/CLI.pm view on Meta::CPAN
}, $class;
}
sub parse_options {
my $self = shift;
local @ARGV = @_;
my ($mirror, @resolver, @feature);
my $with_option = sub {
my $n = shift;
("with-$n", \$self->{"with_$n"}, "without-$n", sub { $self->{"with_$n"} = 0 });
};
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;