| line |
true |
false |
branch |
|
20
|
49 |
116 |
if ($k =~ s/\[([a-zA-Z0-9_-]+)\]\z//) { } |
|
|
42 |
74 |
elsif ($k =~ s/\[\]\z//) { } |
|
40
|
49 |
116 |
if ($$key[0] eq '%') { } |
|
|
42 |
74 |
elsif ($$key[0] eq '@') { } |
|
|
74 |
0 |
elsif ($$key[0] eq '$') { } |
|
41
|
28 |
21 |
if (@keys) { } |
|
47
|
13 |
29 |
if (@keys) { } |
|
48
|
6 |
7 |
if (defined $$r) { } |
|
49
|
4 |
2 |
if (ref $$$r[@$$r - 1] eq 'HASH' and $keys[0][0] eq '%' and not exists $$$r[@$$r - 1]{$keys[0][1]}) { } |
|
61
|
50 |
24 |
if (@keys) { } |
|
86
|
9 |
12 |
if (ref $v eq 'HASH') { } |
|
|
2 |
10 |
elsif (ref $v eq 'ARRAY') { } |
|
|
10 |
0 |
elsif (not ref $v) { } |
|
88
|
6 |
5 |
length $COLLAPSE_KEY ? : |
|
106
|
0 |
5 |
if (ref $dat ne 'HASH') |