local.*@ARGV results from the CPAN

Catalyst-Helper-InitScript-FreeBSD

view release on metacpan or search on metacpan

lib/Catalyst/Helper/InitScript/FreeBSD.pm view on Meta::CPAN

65
66
67
68
69
70
71
72
73
74
75 # parse args
{
    no warnings 'uninitialized';
    my $opts = {};
    local @ARGV = @args;
    my $ret = GetOptions(
        'help|?'      => \$opts->{help},
        'user=s'      => \$opts->{user},
        'group=s'     => \$opts->{group},
        'pidfile|p=s' => \$opts->{pidfile},

view all matches for this distribution

Catalyst-Runtime

7 results

view release on metacpan or search on metacpan

t/aggregate/unit_core_script_cgi.t view on Meta::CPAN

7
8
9
10
11
12
13
14
15
16
17 use Test::More;
use Test::Fatal;
 
use Catalyst::Script::CGI;
 
local @ARGV;
is exception {
    Catalyst::Script::CGI->new_with_options(application_name => 'TestAppToTestScripts')->run;
}, undef, "new_with_options";
shift @TestAppToTestScripts::RUN_ARGS;
my $server = pop @TestAppToTestScripts::RUN_ARGS;

view all matches for this distribution

Catalyst-View-Component-jQuery

1 match

view release on metacpan or search on metacpan

examples/TestApp/Controller/Root.pm view on Meta::CPAN

92
93
94
95
96
97
98
99
100
101
102     :MenuPath('/How it works/The template')
    :MenuTitle('The template')
    {
    my ( $self, $c ) = @_;
    my $text;
    { local (@ARGV, $/) = 'TestApp/root/src/index.tt2'; $text = <> }
    $c->res->content_type('text/plain');
    $c->res->body($text);
}
 
1;

view all matches for this distribution

Catmandu-MAB2

2 results

view release on metacpan or search on metacpan

t/lib/MockHTTPClient.pm view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13 use Moo;
 
sub get {
    my ($self, $url) = @_;
    $url =~ /query=([^&]+)/;
    my $xml = do {local (@ARGV, $/) = "t/$1"; <>};
    {success => 1, status => 200, reason => 'OK', content => $xml,};
}
 
1;

view all matches for this distribution

Catmandu-PICA

2 results

view release on metacpan or search on metacpan

t/lib/MockHTTPClient.pm view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13 use Moo;
 
sub get {
    my ($self, $url) = @_;
    $url =~ /query=([^&]+)/;
    my $xml = do {local (@ARGV, $/) = "t/files/$1"; <>};
    {success => 1, status => 200, reason => 'OK', content => $xml,};
}
 
1;

view all matches for this distribution

Catmandu-RDF

1 match

view release on metacpan or search on metacpan

lib/Catmandu/Importer/RDF.pm view on Meta::CPAN

50
51
52
53
54
55
56
57
58
59
60 has sparql => (
    is      => 'ro',
    lazy    => 1,
    trigger  => sub {
        my ($sparql, $ns) = ($_[1], $_[0]->ns);
        $sparql = do { local (@ARGV,$/) = $sparql; <> } if $sparql =~ /^\S+$/ && -r $sparql;
        my %prefix;
        # guess requires prefixes (don't override existing). Don't mind false positives
        $prefix{$_} = 1 for ($sparql =~ /\s([a-z][a-z0-0_-]*):/mig);
        delete $prefix{$_} for ($sparql =~ /PREFIX\s+([^:]+):/mg);
        $_[0]->{sparql} = join "\n", (map { $ns->SPARQL($_) } keys %prefix), $sparql;

view all matches for this distribution

Catmandu-SRU

2 results

view release on metacpan or search on metacpan

t/lib/MockHTTPClient.pm view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13 use Moo;
 
sub get {
    my ($self, $url) = @_;
    $url =~ /query=([^&]+)/;
    my $xml = do {local (@ARGV, $/) = "t/files/$1"; <>};
    {success => 1, status => 200, reason => 'OK', content => $xml,};
}
 
1;

view all matches for this distribution

Catmandu-XML

1 match

view release on metacpan or search on metacpan

t/exporter.t view on Meta::CPAN

52
53
54
55
56
57
58
59
60     { _id => 'foo', _xml => [ foo => {} ] },
    { _id => 'bar.xml', _xml => [ bar => {} ] },
]);
ok(-e "$dir/foo.xml" and -e "$dir/bar.xml", 'export to directory');
$xml = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<foo/>\n";
$out = do { local (@ARGV, $/) = "$dir/foo.xml"; <> };
is $out, $xml, 'exported to multiple files';
 
done_testing;

view all matches for this distribution

Ceph-Rados-Striper

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588   $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;

ppport.h view on Meta::CPAN

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606   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 all matches for this distribution

Ceph-Rados

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107   $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;

ppport.h view on Meta::CPAN

3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125   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 all matches for this distribution

Cinnamon

1 match

view release on metacpan or search on metacpan

lib/Cinnamon/CLI.pm view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23 }
 
sub run {
    my ($self, @args) = @_;
 
    local @ARGV = @args;
    my $p = Getopt::Long::Parser->new(
        config => ["no_ignore_case", "pass_through"],
    );
    $p->getoptions(
        "h|help"     => \$self->{help},

view all matches for this distribution

Class-AutoDB

1 match

view release on metacpan or search on metacpan

lib/Class/AutoDB/ppport.h view on Meta::CPAN

3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094   $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/Class/AutoDB/ppport.h view on Meta::CPAN

3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112   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 all matches for this distribution

Class-Easy

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094   $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;

ppport.h view on Meta::CPAN

3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112   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 all matches for this distribution

Class-Load-XS

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588   $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;

ppport.h view on Meta::CPAN

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606   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 all matches for this distribution

Class-MethodCache

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032   $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;

ppport.h view on Meta::CPAN

3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050   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 all matches for this distribution

Class-Scaffold

1 match

view release on metacpan or search on metacpan

lib/Class/Scaffold/App/Test/YAMLDriven.pm view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86     $testdir
);
for my $name (sort keys %file) {
    note "Loading test file $name";
    (   my $tests_yaml =
          do { local (@ARGV, $/) = $file{$name}; <> }
    ) =~ s/%%PID%%/sprintf("%06d", $$)/ge;
    $tests_yaml =~ s/%%CNT%%/sprintf("%03d", ++(our $cnt))/ge;
 
    # Quick regex check whether the test wants to be skipped. To use
    # Load() on a test that wants to be skipped would be a bad idea as it

view all matches for this distribution

Class-Sniff

1 match

view release on metacpan or search on metacpan

lib/Class/Sniff/App.pm view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44  
=cut
 
sub new {
    my ( $class, @args ) = @_;
    local @ARGV = @args;
    my $self = bless {
        dirs      => undef,
        ignore    => undef,
        namespace => qr/./,
        output    => undef,

view all matches for this distribution

Class-Usul

1 match

view release on metacpan or search on metacpan

lib/Class/Usul/TraitFor/UntaintedGetopts.pm view on Meta::CPAN

133
134
135
136
137
138
139
140
141
142
143 my $usage_opt = $config{usage_opt} ? $config{usage_opt} : 'Usage: %c %o';
 
@gld_conf{ @gld_attr } = @config{ @gld_attr };
$config{usage_conf   } and $_set_usage_conf->( $config{usage_conf} );
$config{protect_argv } and local @ARGV = @ARGV;
$enc and @ARGV = map { decode( $enc, $_ ) } @ARGV;
$config{no_untaint   } or  @ARGV = map { untaint_cmdline $_ } @ARGV;
$Untainted_Argv = [ @ARGV ];
keys  %{ $splitters  } and @ARGV = $_split_args->( $splitters );
($opt, $Usage)  = describe_options( $usage_opt, @options, \%gld_conf );

view all matches for this distribution

Class-XSAccessor

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274   $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;

ppport.h view on Meta::CPAN

3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292   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 all matches for this distribution

Class-XSConstructor

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107   $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;

ppport.h view on Meta::CPAN

3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125   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 all matches for this distribution

ClearCase-Wrapper-DSB

1 match

view release on metacpan or search on metacpan

DSB.pm view on Meta::CPAN

1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391 Cwd::chdir($iwd) || warn "$iwd: $!\n";
my($cli) = grep /^viewenv=/, @ARGV;
$venv = (split /=/, $cli)[1] if $cli;
$venv ||= '.viewenv.pl';
if (-f $venv) {
    local @ARGV = grep /^\w+=/, @ARGV;
    push(@ARGV, @viewenv_argv) if @viewenv_argv;
    print "+ reading $venv ...\n";
    eval { require $venv };
    warn Msg('W', $@) if $@;
}

view all matches for this distribution

ClearCase-Wrapper-MGi

1 match

view release on metacpan or search on metacpan

MGi.pm view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19 use File::Find;
($EQHL, $PRHL, $STHL, $FCHL) = qw(EqInc PrevInc StBr FullCpy);
 
# Note: only wrapper supported functionality--possible fallback to cleartool
sub _Wrap {
  local @ARGV = @_;
  ClearCase::Wrapper::Extension($ARGV[0]);
  no strict 'refs';
  my $rc = eval { "ClearCase::Wrapper::$ARGV[0]"->(@ARGV) };
  if ($@) {
    chomp $@;            #One extra newline to avoid dumping the stack

view all matches for this distribution

ClearCase-Wrapper

3 results

view release on metacpan or search on metacpan

Wrapper.pm view on Meta::CPAN

457
458
459
460
461
462
463
464
465
466
467  
# Examines supplied arg vector, returns the explicit or implicit working view.
sub ViewTag {
    my $vtag;
    if (@_) {
      local(@ARGV) = @_;
      GetOptions("tag=s" => \$vtag);
    }
    if (!$vtag) {
      require Cwd;
      my $cwd = Cwd::fastgetcwd;

view all matches for this distribution

Clone-Closure

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107   $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;

ppport.h view on Meta::CPAN

3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125   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 all matches for this distribution

Clone

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

11490
11491
11492
11493
11494
11495
11496
11497
11498
11499
11500   $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;

ppport.h view on Meta::CPAN

11508
11509
11510
11511
11512
11513
11514
11515
11516
11517
11518   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 all matches for this distribution

Clownfish

1 match

view release on metacpan or search on metacpan

buildlib/Clownfish/Build.pm view on Meta::CPAN

153
154
155
156
157
158
159
160
161
162
163     # the generated Makefile.
    my $error = system("$^X -Mblib -MClownfish::Test -e1");
    if ($error) {
        print STDERR "Build succeeded, but 'use Clownfish::Test' failed.\n";
        if ($ENV{AUTOMATED_TESTING}) {
            my $makefile = do { local(@ARGV, $/) = 'Makefile'; <> };
            print STDERR "\nContents of Makefile:\n$makefile";
        }
        die;
    }
}

view all matches for this distribution

Clustericious

3 results

view release on metacpan or search on metacpan

t/clustericious_app.t view on Meta::CPAN

59
60
61
62
63
64
65
66
67
68
69 $t->get_ok('/autotest_not_found')
  ->status_is(404);
note $t->tx->res->text;
 
my($out,$err,$ret) = capture {
  local @ARGV = 'routes';
  local $ENV{MOJO_APP} = 'SomeService';
  Clustericious::Commands->start;
};
note "[routes]\n$out" if $out;
note "[err]\n$err" if $err;

view all matches for this distribution

Cocoa-BatteryInfo

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274   $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;

ppport.h view on Meta::CPAN

3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292   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 all matches for this distribution

Cocoa-EventLoop

1 match

view release on metacpan or search on metacpan

ppport.h view on Meta::CPAN

3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107   $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;

ppport.h view on Meta::CPAN

3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125   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 all matches for this distribution

Cocoa-Growl

2 results

view release on metacpan or search on metacpan

Makefile.PL view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36  
use_ppport '3.19';
cc_append_to_libs '-lobjc';
 
my $use_local_framework;
if ($use_local_framework = (grep(/USE_LOCAL_GROWL_FRAMEWORK=.*/, @ARGV))[0] ) {
    $use_local_framework =~ s/.*?=//;
}
@ARGV = grep !/USE_LOCAL_GROWL_FRAMEWORK/, @ARGV;
 
if ($use_local_framework) {

view all matches for this distribution