line |
true |
false |
branch |
23
|
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 ? :
|
24
|
2 |
12 |
$no_subname ? :
|
28
|
4 |
22 |
if @_ > 2
|
35
|
3 |
23 |
if (*{$glob;}{'CODE'}) { }
|
73
|
12 |
86 |
unless my $info = $DEFERRED{$deferred}
|
76
|
2 |
12 |
unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;})
|
84
|
22 |
62 |
if ${$undeferred_ref;}
|
88
|
28 |
33 |
if (defined $target and $deferred eq *{_getglob($target);}{'CODE'} or '')
|
112
|
52 |
10 |
if $name
|
119
|
8 |
18 |
unless my $info = $DEFERRED{$deferred or ''}
|
122
|
6 |
6 |
unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;})
|
130
|
8 |
4 |
$undeferred_ref && $$undeferred_ref ? :
|
139
|
36 |
62 |
if $target
|
143
|
88 |
7 |
unless $options and $options->{'attributes'}
|
144
|
7 |
88 |
if (@attributes)
|
151
|
15 |
78 |
if (@attributes or $target and !1) { }
|
152
|
12 |
3 |
$target ? :
|
|
12 |
3 |
$target ? :
|
169
|
0 |
15 |
unless eval $code
|
171
|
0 |
15 |
if defined $e
|
179
|
21 |
57 |
if $target
|
191
|
86 |
6 |
$_->[3] && ${$_->[3];} ? :
|
|
72 |
92 |
$_->[4] ? :
|
|
164 |
24 |
defined $_ ? :
|