| line |
true |
false |
branch |
|
17
|
12 |
390 |
unless my(@caller) = caller $i++
|
|
18
|
58 |
332 |
if $name_cache
|
|
19
|
58 |
332 |
$caller[0] eq 'Hook::LexWrap' ? :
|
|
20
|
316 |
74 |
if $name_cache or $height-- != 0
|
|
21
|
36 |
10 |
@_ ? :
|
|
|
46 |
28 |
wantarray ? :
|
|
30
|
4 |
24 |
ref $typeglob || $typeglob =~ /::/ ? :
|
|
40
|
37 |
17 |
if $wrapper{$_}
|
|
46
|
24 |
28 |
if ($unwrap)
|
|
48
|
11 |
17 |
if (wantarray) { }
|
|
|
4 |
13 |
elsif (defined wantarray) { }
|
|
50
|
6 |
5 |
if $wrapper{'pre'}
|
|
51
|
7 |
3 |
if (ref $return eq 'ARRAY' and $return == $prereturn and not @$return)
|
|
53
|
6 |
1 |
if $wrapper{'post'}
|
|
56
|
9 |
2 |
ref $return eq 'ARRAY' ? :
|
|
60
|
3 |
1 |
if $wrapper{'pre'}
|
|
61
|
3 |
1 |
unless ($prereturn)
|
|
63
|
3 |
0 |
if $wrapper{'post'}
|
|
70
|
12 |
1 |
if $wrapper{'pre'}
|
|
71
|
13 |
0 |
unless ($prereturn)
|
|
73
|
11 |
2 |
if $wrapper{'post'}
|
|
79
|
1 |
1 |
defined wantarray ? :
|
|
|
2 |
23 |
if ref $typeglob eq 'CODE'
|
|
86
|
13 |
10 |
unless defined wantarray
|