| line |
true |
false |
branch |
|
20
|
11 |
4 |
if (ref $ref eq 'HASH') { } |
|
|
0 |
4 |
elsif (ref $ref eq 'ARRAY') { } |
|
23
|
8 |
3 |
if (defined $C->{$ref}{'v'}) |
|
24
|
4 |
4 |
if (ref $C->{$ref}{'v'} eq 'HASH') { } |
|
|
0 |
4 |
elsif (ref $C->{$ref}{'v'} eq 'ARRAY') { } |
|
25
|
2 |
2 |
if (my(@rec) = reach($C->{$ref}{'v'})) |
|
29
|
0 |
0 |
if (my(@rec) = reach($C->{$ref}{'v'})) |
|
30
|
0 |
0 |
if (defined $C->{$ref}{'k'}) |
|
41
|
6 |
3 |
if (my($k, $v) = each %$ref) |
|
53
|
0 |
0 |
if (defined $C->{$ref}{'v'}) |
|
54
|
0 |
0 |
if (ref $C->{$ref}{'v'} eq 'HASH' or ref $C->{$ref}{'v'} eq 'ARRAY') |
|
57
|
0 |
0 |
if (my(@rec) = reach($C->{$ref}{'v'})) |
|
58
|
0 |
0 |
if (defined $C->{$ref}{'k'}) |
|
67
|
0 |
0 |
if (my $v = $$ref[$C->{$ref}{'i'}++ or 0]) |
|
98
|
0 |
0 |
if (@_ > 1) { } |
|
114
|
0 |
0 |
if (ref $hr eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $hr eq 'ARRAY') { } |
|
115
|
0 |
0 |
unless $hr = $hr->{$key} |
|
117
|
0 |
0 |
unless $hr = $hr->[$key] |