| line |
true |
false |
branch |
|
15
|
12 |
390 |
unless my(@caller) = caller $i++ |
|
16
|
58 |
332 |
if $name_cache |
|
17
|
58 |
332 |
$caller[0] eq 'Hook::LexWrap' ? : |
|
18
|
316 |
74 |
if $name_cache or $height-- != 0 |
|
19
|
36 |
10 |
@_ ? : |
|
|
46 |
28 |
wantarray ? : |
|
28
|
4 |
24 |
ref $typeglob || $typeglob =~ /::/ ? : |
|
38
|
37 |
17 |
if $wrapper{$_} |
|
44
|
24 |
28 |
if ($unwrap) |
|
46
|
11 |
17 |
if (wantarray) { } |
|
|
4 |
13 |
elsif (defined wantarray) { } |
|
48
|
6 |
5 |
if $wrapper{'pre'} |
|
49
|
7 |
3 |
if (ref $return eq 'ARRAY' and $return == $prereturn and not @$return) |
|
51
|
6 |
1 |
if $wrapper{'post'} |
|
54
|
9 |
2 |
ref $return eq 'ARRAY' ? : |
|
58
|
3 |
1 |
if $wrapper{'pre'} |
|
59
|
3 |
1 |
unless ($prereturn) |
|
61
|
3 |
0 |
if $wrapper{'post'} |
|
68
|
12 |
1 |
if $wrapper{'pre'} |
|
69
|
13 |
0 |
unless ($prereturn) |
|
71
|
11 |
2 |
if $wrapper{'post'} |
|
77
|
1 |
1 |
defined wantarray ? : |
|
|
2 |
23 |
if ref $typeglob eq 'CODE' |
|
84
|
13 |
10 |
unless defined wantarray |