| line |
true |
false |
branch |
|
59
|
8 |
67 |
if ($name_routines and not defined &subname) |
|
60
|
8 |
0 |
if (eval {
do {
require Sub::Name;
1
}
}) { } |
|
67
|
40 |
35 |
if ($target eq 'package') { } |
|
|
26 |
9 |
elsif ($target eq 'object') { } |
|
|
9 |
0 |
elsif ($target eq 'hash') { } |
|
73
|
12 |
469 |
unless $type =~ /_sub\z/ |
|
76
|
457 |
12 |
if $name_routines |
|
85
|
12 |
312 |
unless $type =~ /_method\z/ |
|
87
|
300 |
12 |
if $name_routines |
|
92
|
54 |
54 |
unless $type =~ /_sub\z/ |
|
100
|
12 |
1 |
unless defined $replace |
|
102
|
11 |
2 |
if ($target_type eq 'package') { } |
|
|
1 |
1 |
elsif ($target_type eq 'object') { } |
|
|
1 |
0 |
elsif ($target_type eq 'hash') { } |
|
103
|
0 |
1 |
if $Package_Targets{$target_name} |
|
|
1 |
10 |
unless ($replace) |
|
107
|
0 |
0 |
if $Object_Targets{$addr} |
|
|
0 |
1 |
unless ($replace) |
|
111
|
0 |
0 |
if $Hash_Targets{$addr} |
|
|
0 |
1 |
unless ($replace) |
|
122
|
3 |
3 |
$Levels{$_} > $Current_Level ? : |
|
|
3 |
3 |
$Levels{$_} > $Current_Level ? : |
|
132
|
1 |
0 |
unless defined $per_target_conf{'category'} |
|
136
|
0 |
1 |
if (keys %Global_Hooks) { } |
|
152
|
10 |
0 |
unless defined $per_target_conf{'category'} |
|
154
|
9 |
1 |
if (keys %Global_Hooks) { } |