| line |
true |
false |
branch |
|
16
|
8 |
0 |
unless (exists $g_cu->{'td'}) |
|
38
|
4 |
29 |
if (exists $info->{'exempt'}) |
|
51
|
0 |
8 |
if ($cu_td->{$name}) |
|
53
|
0 |
0 |
if ($other_package->isa($package) or $package->isa($other_package)) |
|
67
|
0 |
8 |
if (exists $info->{'exempt'}) |
|
80
|
51 |
33 |
unless grep {$_ eq $pkg;} @{$$trees{$class};} |
|
83
|
136 |
6 |
if (exists $cu_restr->{$p}{$n}) { } |
|
84
|
134 |
2 |
if $cu_restr->{$p}{$n} == $cu_restr->{$pkg}{$n} |
|
86
|
2 |
0 |
if ($equal) |
|
88
|
0 |
0 |
if ($cu_restr->{$pkg}{$n}[$_ - 1] ne $cu_restr->{$p}{$n}[$_ - 1]) |
|
94
|
0 |
2 |
unless ($equal) |
|
118
|
9 |
24 |
if (exists $cu_restr->{$package}{$name}) |
|
130
|
0 |
8 |
if (exists $cu_restr->{$package}{$name}) |
|
149
|
0 |
24 |
unless ($class) |
|
157
|
4 |
17 |
if ($restr and exists $restr->{$class}{$name}) |
|
159
|
1 |
2 |
unless (grep {$_ eq $caller;} @{$$restr{$class}{$name};} or $caller->isa($class) or $class->isa($caller)) |
|
169
|
81 |
13 |
if (my $code = $code_refs->{$pkg}) |
|
172
|
75 |
6 |
if (defined $list_context) { } |
|
174
|
22 |
53 |
if ($list_context) { } |
|
189
|
19 |
4 |
if (defined $list_context) |
|
190
|
6 |
13 |
if ($list_context) |
|
243
|
5 |
36 |
unless (defined $HASHES[$$self]) |