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
lib/App/sh2p/Builtins.pm view on Meta::CPAN
sub do_read {
my %args;
my $prompt = 'undef';
my $ntok;
local @ARGV;
# First argument is 'read'
shift @_;
$ntok++;
lib/App/sh2p/Builtins.pm view on Meta::CPAN
########################################################
sub do_touch {
my $ntok = @_;
my $cmd = shift;
local @ARGV = @_;
my %args;
getopts ('acdfmr:t', \%args);
if (keys %args) {
error_out "$cmd options not currently supported";
lib/App/sh2p/Builtins.pm view on Meta::CPAN
my ($cmd, @args) = @_;
my $ntok = 1;
my %args;
local @ARGV = @args;
getopts ('cCsd', \%args);
if (keys %args) {
error_out "$cmd options not currently supported";
}
lib/App/sh2p/Builtins.pm view on Meta::CPAN
#print STDERR "do_typeset: $_[0]\n";
# First argument should be 'typeset' or 'declare'
shift @_;
local @ARGV = @_;
getopts ('UPRTUXLRZ:iftux', \%args);
my %type = (i => 'int',
l => 'lc',
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->initialize()
->read_option()
->argv()
->deal_option()
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;
inc/Devel/PPPort.pm view on Meta::CPAN
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
lib/AproJo/Command/config.pm view on Meta::CPAN
has usage => "usage: $0 config\n";
sub run {
my $self = shift;
local @ARGV = @_;
my $force = 0;
GetOptions("force" => \$force);
my $file = $self->app->config_file;
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;
xs/ppport.h view on Meta::CPAN
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
lib/Archive/Extract/ppport.h 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;
lib/Archive/Extract/ppport.h view on Meta::CPAN
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
lib/Archive/ppport.h 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;
lib/Archive/ppport.h view on Meta::CPAN
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
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;
xs/ppport.h view on Meta::CPAN
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
src/ppport.h 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;
src/ppport.h view on Meta::CPAN
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
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)__/ ;
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
local $Getopt::Long::genprefix = "($prefix)";
my @flags = map {"$_=i"} ((map lc, keys %Argv::Argv), @_);
my %opt;
if (ref $self) {
if ($r_argv) {
local @ARGV = @$r_argv;
GetOptions(\%opt, @flags);
@$r_argv = @ARGV;
} else {
local @ARGV = $self->args;
if (@ARGV) {
GetOptions(\%opt, @flags);
$self->args(@ARGV);
}
}
} elsif ($r_argv) {
local @ARGV = @$r_argv;
GetOptions(\%opt, @flags);
@$r_argv = @ARGV;
} elsif (@ARGV) {
GetOptions(\%opt, @flags);
}
sub factor {
my $self = shift;
my($pset, $r_desc, $r_opts, $r_args, $r_cfg) = @_;
my @vgra;
{
local @ARGV = @$r_args;
if ($r_desc && @$r_desc) {
require Getopt::Long;
# Need this version so Configure() returns prev state.
Getopt::Long->VERSION(2.23);
if ($r_cfg && @$r_cfg) {
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
lib/Arriba/Server.pm view on Meta::CPAN
push @port, \%listen;
}
my $workers = $options->{workers} || 5;
local @ARGV = ();
$self->SUPER::run(
port => \@port,
host => '*',
proto => $options->{ssl} ? 'ssl' : 'tcp',
view release on metacpan or search on metacpan
lib/Astro/App/Satpass2.pm view on Meta::CPAN
my ( $self, $opt, $file, @args ) = __arguments( @_ );
defined $file
or $self->wail( 'At least one argument is required' );
$opt->{setup}
and push @{ $self->{_perl} ||= [] }, [ $opt, $file, @args ];
local @ARGV = ( $self, map { $self->expand_tilde( $_ ) } @args );
$opt->{eval}
or local $0 = $self->expand_tilde( $file );
my $data = $opt->{eval} ?
$file :