| line |
true |
false |
branch |
|
26
|
0 |
1 |
unless open my $SCRIPT, "<", $script |
|
28
|
1 |
1 |
if ($line =~ /^\s*package\s+\S+\s*;/u) { } |
|
|
1 |
0 |
elsif ($. == 1) { } |
|
33
|
1 |
0 |
$line =~ /^#!/u ? : |
|
37
|
0 |
0 |
if $line =~ /^[^#]+;/u |
|
42
|
0 |
1 |
unless open my $SELF, "<", "/root/.cpan/build/Getopt-App-0.13-0/blib/lib/Getopt/App.pm" |
|
44
|
53 |
234 |
if $line =~ /(?:\bVERSION\s|^\s*$)/u |
|
45
|
43 |
191 |
if $line =~ /^sub bundle\s\{/u .. $line =~ /^}$/u |
|
46
|
1 |
190 |
if $line =~ /^1;\s*$/u |
|
49
|
16 |
174 |
if ($line =~ /^sub\s/u) { } |
|
|
14 |
160 |
elsif ($line =~ /^}$/u) { } |
|
50
|
1 |
15 |
if $out_line |
|
51
|
2 |
14 |
$line =~ /\}$/u ? : |
|
75
|
0 |
25 |
unless open my $STDOUT_ORIG, ">&STDOUT" |
|
76
|
0 |
25 |
unless open my $STDERR_ORIG, ">&STDERR" |
|
79
|
0 |
25 |
unless open STDERR, ">&", fileno $STDERR_ORIG |
|
80
|
0 |
25 |
unless open STDOUT, ">&", fileno $STDOUT_ORIG |
|
81
|
0 |
25 |
if $_[0] |
|
84
|
0 |
25 |
unless open STDOUT, ">&", fileno $STDOUT_CAPTURE |
|
85
|
0 |
25 |
unless open STDERR, ">&", fileno $STDERR_CAPTURE |
|
88
|
4 |
21 |
unless (eval {
do {
$exit_value = &$app($argv || [@ARGV]);
1
}
}) |
|
106
|
1 |
3 |
if $pod2usage{'-sections'} |
|
114
|
1 |
3 |
if $pod2usage{'-sections'} |
|
131
|
6 |
4 |
if ($flag eq '-capture') { } |
|
|
2 |
2 |
elsif ($flag eq '-complete') { } |
|
|
0 |
2 |
elsif ($flag eq '-signatures') { } |
|
|
2 |
0 |
elsif (not $flag =~ /^-/u) { } |
|
144
|
1 |
1 |
if $caller eq "main" |
|
145
|
0 |
1 |
unless eval "require $flag;1" |
|
150
|
13 |
6 |
unless ($skip_default) |
|
151
|
13 |
0 |
unless $caller->can("extract_usage") |
|
152
|
13 |
0 |
unless $caller->can("new") |
|
159
|
1 |
1 |
@_ > 1 ? : |
|
|
2 |
49 |
@_ ? : |
|
166
|
12 |
47 |
if not $Getopt::App::APP_CLASS and defined wantarray |
|
169
|
47 |
0 |
ref $rules[0] eq 'ARRAY' ? : |
|
173
|
10 |
37 |
if defined $ENV{'COMP_POINT'} and defined $ENV{'COMP_LINE'} |
|
178
|
17 |
20 |
$SUBCOMMANDS ? : |
|
179
|
9 |
24 |
if defined $exit_value |
|
189
|
0 |
6 |
if ref $subcommand->[1] eq "CODE" |
|
192
|
1 |
5 |
unless my $code = do $subcommand->[1] |
|
198
|
0 |
23 |
unless $state->{'valid'} |
|
199
|
22 |
1 |
unless $argv->[0] and $argv->[0] =~ /^-/u |
|
213
|
8 |
25 |
unless $exit_value and $exit_value =~ /^\d{1,3}$/u |
|
214
|
2 |
31 |
unless $exit_value < 255 |
|
215
|
0 |
33 |
unless $Getopt::App::APP_CLASS |
|
225
|
25 |
1 |
&Getopt::Long::GetOptionsFromArray($argv, $app, @$rules) ? : |
|
228
|
23 |
1 |
$valid ? : |
|
236
|
2 |
11 |
if $method |
|
238
|
6 |
5 |
unless ($APPS{$subcommand->[1]}) |
|
240
|
0 |
5 |
unless ref $APPS{$subcommand->[1]} eq "CODE" |
|
248
|
3 |
14 |
unless $argv->[0] and $argv->[0] =~ /^\w/u |
|
250
|
4 |
10 |
unless my $subcommand = &first(sub {
$_->[0] eq $argv->[0];
}
, @$subcommands) |
|
256
|
1 |
3 |
unless @$rules |
|
262
|
7 |
4 |
length $_ == 1 ? : |
|
266
|
4 |
5 |
if $l > $len |
|
275
|
3 |
1 |
unless @$subcommands |
|
280
|
4 |
2 |
if $l > $len |