| line |
true |
false |
branch |
|
16
|
5 |
0 |
unless (exists $g_ch->{'td'}) |
|
38
|
2 |
16 |
if (exists $info->{'exempt'}) |
|
51
|
0 |
11 |
if ($ch_td->{$name}) |
|
53
|
0 |
0 |
if ($other_package->isa($package) or $package->isa($other_package)) |
|
67
|
3 |
8 |
if (exists $info->{'exempt'}) |
|
80
|
47 |
37 |
unless grep {$_ eq $pkg;} @{$$trees{$class};} |
|
83
|
152 |
5 |
if (exists $ch_restr->{$p}{$n}) { } |
|
84
|
143 |
9 |
if $ch_restr->{$p}{$n} == $ch_restr->{$pkg}{$n} |
|
86
|
6 |
3 |
if ($equal) |
|
88
|
1 |
6 |
if ($ch_restr->{$pkg}{$n}[$_ - 1] ne $ch_restr->{$p}{$n}[$_ - 1]) |
|
94
|
4 |
5 |
unless ($equal) |
|
118
|
6 |
12 |
if (exists $ch_restr->{$package}{$name}) |
|
130
|
3 |
8 |
if (exists $ch_restr->{$package}{$name}) |
|
150
|
0 |
13 |
unless ($class) |
|
157
|
7 |
3 |
if ($restr and exists $restr->{$class}{$name}) |
|
159
|
1 |
5 |
unless (grep {$_ eq $caller;} @{$$restr{$class}{$name};} or $caller->isa($class) or $class->isa($caller)) |
|
169
|
45 |
8 |
if (my $code = $code_refs->{$pkg}) |