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
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;
view release on metacpan or search on metacpan
private/MakeUtil.pm view on Meta::CPAN
my $warn_sub = shift;
return if -d $_[0];
local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
local (@ARGV) = shift;
while (<>)
{
print, last if /^__(END|DATA)__/ ;