view release on metacpan or  search on metacpan

t/Policy/NamingConventions/capitalization.PL  view on Meta::CPAN

--- dscr: Builtin variables and variables in other packages are exempt.
--- failures: 0
--- params: {capitalization => {global_variables => ':all_lower'}}
--- input
local $EVAL_ERROR
local @ARGV;
local %INC;
local $Foo::Bar;

===
--- dscr: Test customization example in the Capitalization POD passing.

 view release on metacpan or  search on metacpan

lib/Perl/Maker.pm  view on Meta::CPAN

        }
        if ($args[0] !~ /^-/) {
            $hash->{action} = shift(@args);
            last;
        }
        local @ARGV = @args;
        GetOptions(               

        );
        @args = @ARGV;
    }

 view release on metacpan or  search on metacpan

scripts/buildaperl  view on Meta::CPAN

  <built-in> error that old perls have with new gccs. I'll work around this
  in the makefiles now and retry. If you do not like that, hit ^C and FIXME.
  Sleeping 5 seconds...\n";
      sleep 5;
      {
        local @ARGV = qw( makefile x2p/makefile);
        local $^I = "~";
        while (<>) {
          print unless /<(built-in|command line)>/;
        }
      }

 view release on metacpan or  search on metacpan

lib/Perl/Server.pm  view on Meta::CPAN

sub run {
    my $self = shift;
    my @argv = @_;
    
    local @ARGV = @argv;   
    
    my $parser = Getopt::Long::Parser->new(
        config => [ "no_auto_abbrev", "no_ignore_case", "pass_through" ],
    ); 
    

 view release on metacpan or  search on metacpan

lib/Perl/Tidy.pm  view on Meta::CPAN

    $nag_message = EMPTY_STRING;

    # don't overwrite callers ARGV
    # Localization of @ARGV could be avoided by calling GetOptionsFromArray
    # instead of GetOptions, but that is not available before perl 5.10
    local @ARGV   = @ARGV;
    local *STDERR = *STDERR;

    if ( my @bad_keys = grep { !exists $defaults{$_} } keys %input_hash ) {
        local $LIST_SEPARATOR = ')(';
        my @good_keys = sort keys %defaults;

lib/Perl/Tidy.pm  view on Meta::CPAN

    #--------------------------------------------------------------
    # set the defaults by passing the above list through GetOptions
    #--------------------------------------------------------------
    my %Opts = ();
    {
        local @ARGV = ();

        # do not load the defaults if we are just dumping perltidyrc
        if ( $dump_options_type ne 'perltidyrc' ) {
            for my $i ( @{$rdefaults} ) { push @ARGV, "--" . $i }
        }

lib/Perl/Tidy.pm  view on Meta::CPAN

            Die($death_message) if ($death_message);

            # process any .perltidyrc parameters right now so we can
            # localize errors
            if ( @{$rconfig_list} ) {
                local @ARGV = @{$rconfig_list};

                expand_command_abbreviations( $rexpansion, \@raw_options,
                    $config_file );

                check_for_missing_string_options( $ris_string_option,

lib/Perl/Tidy.pm  view on Meta::CPAN

                    Die(
"Error in this config file: $config_file  \nUse -npro to ignore this file, -dpro to dump it, -h for help'\n"
                    );
                }

                # Anything left in this local @ARGV is an error and must be
                # invalid bare words from the configuration file.  We cannot
                # check this earlier because bare words may have been valid
                # values for parameters.  We had to wait for GetOptions to have
                # a look at @ARGV.
                if (@ARGV) {

lib/Perl/Tidy.pm  view on Meta::CPAN

    # Example of the type of error this sub checks for:

    #   perltidy -lpil -l=9 filename

    # In this sub, any short option forms have already been expanded into their
    # long forms, so this will appear here in the local copy of @ARGV as three
    # list items:

    #   @ARGV = qw(
    #     --line-up-parentheses-inclusion-list
    #     --maximum-line-length=9

 view release on metacpan or  search on metacpan

lib/Perl/ToPerl6/Command.pm  view on Meta::CPAN

=head1 SYNOPSIS

    use Perl::ToPerl6::Command qw< run >;

    local @ARGV = qw< --statistics-only lib bin >;
    run();


=head1 DESCRIPTION

 view release on metacpan or  search on metacpan

lib/Perl5/TestEachCommit/Util.pm  view on Meta::CPAN

deferred until C<Perl5::TestEachCommit::new() is called.

=cut

sub process_command_line {
    local @ARGV = @ARGV;

    my %opts = map { $_ => '' } ( qw|
        workdir
        branch
        start

 view release on metacpan or  search on metacpan

t/9070-examples.t  view on Meta::CPAN

        close _SAVEOUT;
        return '';
    }

    {
        local @ARGV = ();
        do $path;
    }

    open(STDOUT, ">&_SAVEOUT");
    close _SAVEOUT;

 view release on metacpan or  search on metacpan

lib/Perl6/Build/CLI.pm  view on Meta::CPAN

    my ($index) = grep { $argv[$_] eq '--' } 0..$#argv;
    if (defined $index) {
        (undef, @configure_option) = splice @argv, $index, @argv - $index;
    }

    local @ARGV = @argv;
    Getopt::Long::Configure(qw(default no_auto_abbrev no_ignore_case));
    Getopt::Long::GetOptions
        "l|list"      => \my $list,
        "L|list-all"  => \my $list_all,
        "h|help"      => \my $show_help,

 view release on metacpan or  search on metacpan

perl5/Pugs-Compiler-Perl6/lib/v6.pm  view on Meta::CPAN

    unless ( $ENV{V6NOTIDY} )
    {
      # Perl::Tidy is used if available
      local $@;   # don't care if there are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( 
            source => \$perl5, 

 view release on metacpan or  search on metacpan

benchmarks/app/MyPodHtml.pm  view on Meta::CPAN

    }
}


sub pod2html {
    local(@ARGV) = @_;
    local($/);
    local $_;

    init_globals();

 view release on metacpan or  search on metacpan

PBS/PBSConfig.pm  view on Meta::CPAN

my ($pbs_config, $switches_to_parse, $ignore_error) = @_ ;
$pbs_config ||= {} ;

my $success_message = '' ;

local @ARGV = ( # default colors
		  '-ci'  => 'green'
		, '-ci2' => 'bold blue'
		, '-cw'  => 'yellow'
		, '-cw2' => 'bold yellow'
		, '-ce'  => 'red'