| line |
true |
false |
branch |
|
25
|
1 |
2 |
eval {
do {
require Sub::Name
}
} && defined &Sub::Name::subname ? : |
|
|
1 |
3 |
eval {
do {
require Sub::Util
}
} && defined &Sub::Util::set_subname ? : |
|
|
1 |
4 |
defined &Sub::Name::subname ? : |
|
|
9 |
5 |
defined &Sub::Util::set_subname ? : |
|
26
|
2 |
12 |
$no_subname ? : |
|
30
|
4 |
22 |
if @_ > 2 |
|
37
|
3 |
23 |
if (*{$glob;}{'CODE'}) { } |
|
75
|
12 |
86 |
unless my $info = $DEFERRED{$deferred} |
|
78
|
2 |
12 |
unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}) |
|
86
|
22 |
62 |
if ${$undeferred_ref;} |
|
90
|
28 |
33 |
if (defined $target and $deferred eq *{_getglob($target);}{"CODE"} or "") |
|
114
|
52 |
10 |
if $name |
|
121
|
8 |
18 |
unless my $info = $DEFERRED{$deferred or ""} |
|
124
|
6 |
6 |
unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}) |
|
132
|
8 |
4 |
$undeferred_ref && $$undeferred_ref ? : |
|
141
|
36 |
62 |
if $target |
|
145
|
88 |
7 |
unless $options and $options->{'attributes'} |
|
146
|
7 |
88 |
if (@attributes) |
|
153
|
15 |
78 |
if (@attributes or $target and !1) { } |
|
154
|
12 |
3 |
$target ? : |
|
|
12 |
3 |
$target ? : |
|
171
|
0 |
15 |
unless eval $code |
|
173
|
0 |
15 |
if defined $e |
|
181
|
21 |
57 |
if $target |
|
193
|
86 |
6 |
$_->[3] && ${$_->[3];} ? : |
|
|
72 |
92 |
$_->[4] ? : |
|
|
164 |
24 |
defined $_ ? : |