line |
true |
false |
branch |
18
|
4 |
133 |
unless defined $root |
19
|
27 |
106 |
unless @path |
21
|
1 |
105 |
unless defined $path0 |
24
|
18 |
87 |
&blessed($root) ? : |
35
|
61 |
33 |
if ($reftype eq 'HASH') { } |
|
25 |
8 |
elsif ($reftype eq 'ARRAY') { } |
39
|
24 |
1 |
if ($key =~ /^-?\d+$/) { } |
47
|
4 |
0 |
defined ref $data ? : |
|
4 |
4 |
$reftype ? : |
50
|
0 |
8 |
$kind =~ /^[aeiou]/i ? : |
69
|
12 |
8 |
unless my $meth = $obj->can($meth_name) |
75
|
9 |
1 |
if ($use_overloads) |
76
|
2 |
7 |
if overload::Method($obj, '@{}') and $key =~ /^-?\d+$/ |
78
|
0 |
7 |
if overload::Method($obj, '%{}') |
82
|
7 |
1 |
if ($peek_blessed) { } |
107
|
1 |
8 |
if ($option eq 'reach') { } |
|
3 |
5 |
elsif ($option eq 'as') { } |
|
5 |
0 |
elsif ($option eq 'call_method') { } |
|
0 |
0 |
elsif ($option eq 'peek_blessed') { } |
|
0 |
0 |
elsif ($option eq 'use_overloads') { } |
112
|
0 |
3 |
unless defined $export_as |
116
|
0 |
5 |
unless my $methods = shift() |
118
|
3 |
2 |
if (ref $methods || '') eq 'ARRAY' |
133
|
5 |
5 |
if (not exists $seen_pkg{$pkg}) { } |
|
0 |
9 |
elsif ($export_as and $export_as ne $seen_pkg{$pkg}) { } |
135
|
4 |
1 |
if ($export_as) |