| line |
true |
false |
branch |
|
23
|
0 |
55 |
if (ref \$_[0] eq 'GLOB') { } |
|
|
34 |
21 |
elsif (not ref $_[0]) { } |
|
24
|
0 |
0 |
unless (\$_[0] . '') =~ /^(?:(.+)=)?(GLOB)\((0x.*)\)$/ |
|
32
|
0 |
21 |
unless "$_[0]" =~ /^(?:(.+)=)?(HASH|ARRAY)\((0x.*)\)$/ |
|
34
|
15 |
6 |
$2 eq 'HASH' ? : |
|
52
|
0 |
7 |
if $$self{'pretty'} |
|
61
|
20 |
12 |
if ($kind eq 'scalar') |
|
62
|
2 |
18 |
unless (defined $node) |
|
67
|
3 |
9 |
if (my $info = $$seen{$id}) |
|
68
|
2 |
1 |
unless ($$info{'anchor'}) |
|
70
|
2 |
0 |
if ($$info{'kind'} eq 'map') { } |
|
80
|
3 |
6 |
if ($kind eq 'seq') { } |
|
|
6 |
0 |
elsif ($kind eq 'map') { } |
|
|
0 |
0 |
elsif ($kind eq 'glob') { } |
|
84
|
1 |
2 |
if ($tag) |
|
94
|
1 |
5 |
if ($tag) |
|
106
|
0 |
0 |
if $type eq 'SCALAR' |
|
107
|
0 |
0 |
if (defined $value) |
|
108
|
0 |
0 |
if ($type eq 'IO') |
|
167
|
14 |
9 |
if ($kind eq 'scalar') |
|
168
|
2 |
12 |
unless (defined $graph) |
|
171
|
3 |
9 |
if ($graph =~ /^\*(\S+)$/) |
|
176
|
6 |
3 |
if ($kind eq 'map') { } |
|
|
3 |
0 |
elsif ($kind eq 'seq') { } |
|
178
|
2 |
4 |
if ($$graph{'&'}) |
|
183
|
1 |
5 |
if ($$graph{'!'}) |
|
194
|
1 |
2 |
if (@$graph and defined $$graph[0] and $$graph[0] =~ /^!(.*)$/) |
|
199
|
0 |
3 |
if (@$graph and $$graph[0] and $$graph[0] =~ /^\&(\S+)$/) |
|
216
|
0 |
2 |
unless $tag =~ m[^!perl/(?:hash|array|object):(\S+)$] |