| line |
true |
false |
branch |
|
57
|
4 |
5 |
if ($spec =~ /^([^=]+)=(.+)$/u) |
|
60
|
1 |
4 |
if ($flag eq "m") |
|
61
|
2 |
2 |
if ($spec =~ /^-(.+)/u) |
|
77
|
343 |
392 |
if ($getopt_spec[$i] =~ /[=:]/u) |
|
87
|
2 |
158 |
if ($arg eq "--") |
|
93
|
50 |
108 |
if ($arg =~ /^--/u) |
|
96
|
4 |
46 |
if (not $arg =~ /=/u and $long_val{$arg} and @ARGV) |
|
103
|
71 |
37 |
unless ($arg =~ /^-/u) |
|
106
|
27 |
44 |
if ($positionals >= 2) |
|
118
|
6 |
33 |
if ($c eq 'w') { } |
|
|
1 |
32 |
elsif ($c eq 'h') { } |
|
|
1 |
31 |
elsif ($c eq 'V') { } |
|
|
30 |
1 |
elsif ($c eq 'e' or $c eq 'm' or $c eq 'M') { } |
|
130
|
9 |
21 |
if (length $bundle) { } |
|
136
|
1 |
20 |
unless defined $val |
|
139
|
20 |
9 |
if ($c eq 'e') { } |
|
160
|
1 |
45 |
unless &GetOptions(@getopt_spec) |
|
166
|
1 |
44 |
if $help |
|
168
|
1 |
43 |
if ($version) |
|
174
|
0 |
43 |
unless @ARGV or @$eval_codes |
|
179
|
43 |
0 |
if ($pipe_cmd) { } |
|
192
|
18 |
25 |
@$eval_codes ? : |
|
201
|
25 |
18 |
if (not defined $eval_code) { } |
|
202
|
1 |
24 |
if length $preamble |
|
207
|
8 |
10 |
if length $preamble |
|
212
|
0 |
42 |
if defined $stdin_file and defined $stdin_str |
|
216
|
2 |
40 |
if (defined $stdin_str) { } |
|
|
2 |
38 |
elsif (defined $stdin_file) { } |
|
220
|
0 |
2 |
unless open my $fh, "<", $stdin_file |
|
233
|
0 |
42 |
$no_system_inc ? : |
|
238
|
0 |
42 |
if @serve_allow |
|
241
|
0 |
42 |
if ($serve_restrict) |
|
248
|
0 |
0 |
if index($real, "$dir/") == 0 |
|
254
|
0 |
42 |
if defined $tmpfile_mode and not $tmpfile_mode =~ /^(auto|linux|perl|named|off)$/u |
|
258
|
0 |
42 |
if defined $tmpfile_mode |
|
259
|
0 |
0 |
$tmpfile_mode eq 'off' ? : |
|
|
0 |
0 |
!defined($tmpfile_mode) ? : |
|
|
42 |
0 |
!$tmpfile ? : |
|
264
|
0 |
42 |
$no_data_warn ? : |
|
290
|
9 |
12 |
defined $eval_code ? : |
|
294
|
2 |
1 |
if $rc and defined $msg and length $msg |