| line |
true |
false |
branch |
|
26
|
1 |
7 |
unless blessed $obj or reftype $obj and reftype $obj eq 'HASH'
|
|
43
|
1 |
574 |
if $recurse_count > 512
|
|
46
|
554 |
20 |
if (blessed $source) { }
|
|
|
11 |
9 |
elsif (reftype $source and reftype $source eq 'HASH') { }
|
|
57
|
554 |
11 |
if ($is_object) { }
|
|
58
|
554 |
0 |
if $source->can('all_fields')
|
|
60
|
1 |
553 |
unless reftype $all_fields and reftype $all_fields eq 'ARRAY'
|
|
68
|
527 |
37 |
if (exists $$tree{'*'} or not %$tree)
|
|
74
|
4 |
560 |
if $is_object and $source->can('fields_requested')
|
|
81
|
8 |
587 |
unless first sub {
$_ eq $field;
}
, @$all_fields
|
|
84
|
569 |
18 |
$is_object ? :
|
|
87
|
527 |
60 |
if (blessed $value or $value_reftype eq 'HASH') { }
|
|
|
8 |
52 |
elsif ($value_reftype eq 'ARRAY') { }
|
|
95
|
1 |
51 |
if (%$branch) { }
|