| line |
true |
false |
branch |
|
22
|
6 |
6 |
if (ref $_[0] eq 'HASH') { } |
|
28
|
5 |
1 |
if ($_ eq 'pass_through') { } |
|
|
0 |
1 |
elsif ($_ eq 'no_pass_through') { } |
|
|
0 |
1 |
elsif ($_ eq 'auto_abbrev') { } |
|
|
1 |
0 |
elsif ($_ eq 'no_auto_abbrev') { } |
|
|
0 |
0 |
elsif ($_ =~ /\A(no_ignore_case|no_getopt_compat|gnu_compat|bundling|permute)\z/) { } |
|
49
|
1 |
0 |
@_ ? : |
|
51
|
2 |
0 |
if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { } |
|
80
|
12 |
52 |
if $short_mode and length $o > 1 |
|
81
|
22 |
30 |
if ($o eq $wanted) { } |
|
|
8 |
23 |
elsif ($config->{'auto_abbrev'} and index($o, $wanted) == 0) { } |
|
92
|
9 |
27 |
if (not @candidates) { } |
|
|
3 |
24 |
elsif (@candidates > 1) { } |
|
93
|
5 |
4 |
unless ($config->{'pass_through'}) |
|
99
|
1 |
2 |
unless ($config->{'pass_through'}) |
|
115
|
19 |
3 |
@_ ? : |
|
122
|
2 |
39 |
if ($argv->[$i] eq '--') { } |
|
|
28 |
11 |
elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { } |
|
|
5 |
6 |
elsif ($argv->[$i] =~ /\A-(.*)/) { } |
|
131
|
8 |
20 |
if (not defined $opt) { } |
|
|
3 |
17 |
elsif (not length $opt) { } |
|
142
|
17 |
0 |
if ($spec =~ /=[fios][\@%]?\z/) { } |
|
143
|
3 |
14 |
if (defined $val_in_opt) { } |
|
147
|
1 |
13 |
if ($i + 1 >= @$argv) |
|
169
|
1 |
7 |
if (not defined $opt) { } |
|
|
0 |
7 |
elsif (not length $opt) { } |
|
171
|
1 |
0 |
unless $remaining_pushed++ |
|
176
|
0 |
0 |
unless $remaining_pushed++ |
|
182
|
4 |
3 |
if ($spec =~ /=[fios][\@%]?\z/) { } |
|
183
|
2 |
2 |
if (length $str) { } |
|
188
|
1 |
1 |
if ($i + 1 >= @$argv) |
|
190
|
1 |
0 |
unless ($config->{'pass_through'}) |