view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

my $warn_0 = 'BEGIN { $^W = 0 }';
{
	eval "require warnings; import warnings";
	$use_warnings = $@ ? 0 : 1;

	local(@ARGV) = ($PM, $SHASUMPP);
	while (<>) {
		if (
		(!$use_warnings && /^(use|no) warnings\b/) ||
		( $use_warnings && /^\Q$warn_1\E # use warnings\b/) ||
		( $use_warnings && /^\Q$warn_0\E # no warnings\b/)) {

 view release on metacpan or  search on metacpan

lib/Dist/Dzpl.pm  view on Meta::CPAN

        my $app = Dist::Zilla::App->new;
        $app->{__chrome__} = $zilla->chrome;
        $app->{__PACKAGE__}{zilla} = $zilla; # Cover case 1...
        $app->{'Dist::Zilla::App'}{zilla} = $zilla; # ...and case 2
        {
            local @ARGV = @arguments;
            $app->run;
        }
    }
    else {
        die "Dist::Zilla cannot do \"$do\"" unless $zilla->can( $do );

 view release on metacpan or  search on metacpan

lib/Dist/Maker/Template/CLI.pm  view on Meta::CPAN

    return File::Basename::basename($0);
}

sub new {
    my $class = shift;
    local @ARGV = @_;

    my %opts;
    my $success = $class->getopt_parser->getoptions(
        \%opts,
        $class->getopt_spec());

 view release on metacpan or  search on metacpan

lib/Dist/Man/Simple.pm  view on Meta::CPAN

    if ( -e $self->{basedir} ) {
        die( "$self->{basedir} already exists.  ".
             "Use --force if you want to stomp on it.\n"
            ) unless $self->{force};

        local @ARGV = $self->{basedir};
        rm_rf();

        die "Couldn't delete existing $self->{basedir}: $!\n"
          if -e $self->{basedir};
    }

    CREATE_IT: {
        $self->progress( "Created $self->{basedir}" );

        local @ARGV = $self->{basedir};
        mkpath();

        die "Couldn't create $self->{basedir}: $!\n" unless -d $self->{basedir};
    }

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Milla/FirstBuild.pm  view on Meta::CPAN

    $self->log("Running the initial build & clean");

    {
        my $wd = File::pushd::pushd($opts->{mint_root});
        for my $cmd (['build', '--no-tgz'], ['clean']) {
            local @ARGV = (@$cmd);
            Dist::Milla::App->run;
        }
    }

    my $git = Git::Wrapper->new("$opts->{mint_root}");

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Author/Plicease/MakeMaker.pm  view on Meta::CPAN

    my @content = do {
      my $in  = $file->content;
      my $out = '';
      my $err = '';
      local @ARGV = ();
      my $error = Perl::Tidy::perltidy(
        source      => \$in,
        destination => \$out,
        stderr      => \$err,
        perltidyrc  => Dist::Zilla::Plugin::Author::Plicease->dist_dir->child('perltidyrc')->stringify,

 view release on metacpan or  search on metacpan

t/010-basic.t  view on Meta::CPAN

sub dz_build {
    my $dir = shift;

    if (chdir File::Spec->catdir( "t", $dir )) {
    local @ARGV = qw<build>;
    $rc = Dist::Zilla::App->run;
    } else {
        fail("Cannot use $dir directory: " . $!);
    }
    

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/App/Command/perltidy.pm  view on Meta::CPAN

sub abstract {'perltidy your dist'}

my $backends = {
    vanilla => sub {
        local @ARGV = ();
        require Perl::Tidy;
        return sub {
            local @ARGV = ();
            Perl::Tidy::perltidy(@_);
        };
    },
    sweet => sub {
        local @ARGV = ();
        require Perl::Tidy::Sweetened;
        return sub {
            local @ARGV = ();
            Perl::Tidy::Sweetened::perltidy(@_);
        };
    },
};

 view release on metacpan or  search on metacpan

t/externaldeps.t  view on Meta::CPAN

use Cwd;
use Dist::Zilla::App;

my $cwd = getcwd();
chdir 't/eg';
local @ARGV = ('externaldeps');
my $stdout = stdout_from { Dist::Zilla::App->run };
chdir $cwd;

like( $stdout, qr/man/,     'man is an external prerequisite' );
like( $stdout, qr/sqlite3/, 'sqlite is an external prerequisite' );

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/Plugin/Author/Plicease/MakeMaker.pm  view on Meta::CPAN

    my @content = do {
      my $in  = $file->content;
      my $out = '';
      my $err = '';
      local @ARGV = ();
      my $error = Perl::Tidy::perltidy(
        source      => \$in,
        destination => \$out,
        stderr      => \$err,
        perltidyrc  => Dist::Zilla::Plugin::Author::Plicease->dist_dir->child('perltidyrc')->stringify,

 view release on metacpan or  search on metacpan

Dist-Zilla-PluginBundle-BAREFOOT-0.05_01/t/tdist.t  view on Meta::CPAN

done_testing;


sub run_dzil_command
{
	local @ARGV = @_;
	Dist::Zilla::App->run;
}

 view release on metacpan or  search on metacpan

lib/Dist/Zilla/App/Command/shell.pm  view on Meta::CPAN

    my $prompt = 'DZ> ';

    while (1) {
	my $line = $term->readline($prompt);

	local @ARGV = Text::ParseWords::shellwords($line);
	next unless @ARGV;
	last if $ARGV[0] =~ /\A(?:exit|x|quit|q)\z/;

	if (exists $builtins{$ARGV[0]}) {
	    local $@;

 view release on metacpan or  search on metacpan

t/0.90/can/Data_Object_Args_exists.t  view on Meta::CPAN

use Data::Object::Args;

can_ok "Data::Object::Args", "exists";

local @ARGV = ('--command', 'post', '--action', 'users');

my $data = Data::Object::Args->new(
  named => { command => 0, action => 1 }
);

 view release on metacpan or  search on metacpan

lib/Doc/Simply/App.pm  view on Meta::CPAN

    my @arguments = @_;

    my ( $help, $type );
    $type = 'slash-star';
    {
        local @ARGV = @arguments;
        GetOptions(
            'type=s' => \$type,
            'help|h|?' => \$help,
        );

 view release on metacpan or  search on metacpan

t/test_docopt.py.t  view on Meta::CPAN

    is_deeply($args->{'-x'}, True);
    is_deeply($args->{'-y'}, undef);
};

subtest 'test_issue_65_evaluate_argv_when_called_not_when_imported' => sub {
    local @ARGV = qw(-a);
    is_deeply(docopt(doc => 'usage: prog [-ab]'), {'-a' => True, '-b' => undef});
    local @ARGV = qw(-b);
    is_deeply(docopt(doc => 'usage: prog [-ab]'), {'-a' => undef, '-b'=> True});
};


subtest 'test_issue_71_double_dash_is_not_a_valid_option_argument' => sub {

 view release on metacpan or  search on metacpan

lib/Doit/Fork.pm  view on Meta::CPAN

    my $worker_pid = fork;
    if (!defined $worker_pid) {
	error "fork failed: $!";
    } elsif ($worker_pid == 0) {
	my $d = do {
	    local @ARGV = $dry_run ? '--dry-run' : ();
	    Doit->init;
	};
	$pipe_to_fork->reader;
	$pipe_from_fork->writer;
	$pipe_from_fork->autoflush(1);

 view release on metacpan or  search on metacpan

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;

 view release on metacpan or  search on metacpan

t/07_run_two.t  view on Meta::CPAN

=head1 Text - a test library for text output 200: Text !;
is( $debug, $check, 'debug' );


my $txt_check   = "Text - a test library for text output\n    Ein Absatz im POD.\n\n";
my $txt_content = do{ local( @ARGV, $/) = $txt->filename; <> };
is ( $txt_content, $txt_check, 'check generated text' );

sub debug{
    $debug .= $_[0] . " ";
}

 view release on metacpan or  search on metacpan

src/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;