| line |
true |
false |
branch |
|
38
|
540 |
5 |
unless (exists $$opts{$_}) |
|
39
|
45 |
495 |
if (exists $$args{$_}) { } |
|
47
|
0 |
545 |
unless (ref $$opts{$_} eq 'CODE') |
|
58
|
0 |
179 |
unless defined $str |
|
137
|
31 |
134 |
if (_quoted($remaining_path)) { } |
|
146
|
7 |
127 |
if ($remaining_path =~ m[^/[^/]+\(]) |
|
148
|
7 |
0 |
if (defined $prefix or defined $remaining_path) { } |
|
158
|
78 |
56 |
if (not $extracted) { } |
|
176
|
10 |
4 |
$_ =~ /^['"]/ ? : |
|
199
|
14 |
151 |
if (blessed $current) { } |
|
202
|
5 |
9 |
if defined $args |
|
205
|
2 |
12 |
unless my $method = $current->can($key) |
|
208
|
0 |
12 |
if ($wantlist) { } |
|
210
|
0 |
0 |
@current > 1 ? : |
|
218
|
2 |
149 |
if defined $args |
|
224
|
2 |
140 |
unless exists $$current{$key} |
|
231
|
0 |
5 |
unless $key =~ /^\d+$/ |
|
234
|
2 |
3 |
if $#{$current;} < $key |