| line |
true |
false |
branch |
|
17
|
0 |
4 |
unless my(@caller) = caller $i++ |
|
18
|
0 |
4 |
if $name_cache |
|
19
|
0 |
4 |
$caller[0] eq 'PerlGuard::Agent::LexWrap' ? : |
|
20
|
0 |
4 |
if $name_cache or $height-- != 0 |
|
21
|
0 |
0 |
@_ ? : |
|
|
0 |
4 |
wantarray ? : |
|
30
|
0 |
0 |
ref $typeglob || $typeglob =~ /::/ ? : |
|
41
|
0 |
0 |
if $wrapper{$_} |
|
46
|
0 |
0 |
if ($unwrap) |
|
48
|
0 |
0 |
if (wantarray) { } |
|
|
0 |
0 |
elsif (defined wantarray) { } |
|
50
|
0 |
0 |
if $wrapper{'pre'} |
|
51
|
0 |
0 |
if (ref $return eq 'ARRAY' and $return == $prereturn and not @$return) |
|
54
|
0 |
0 |
if $wrapper{'post'} |
|
56
|
0 |
0 |
ref $return eq 'ARRAY' ? : |
|
60
|
0 |
0 |
if $wrapper{'pre'} |
|
61
|
0 |
0 |
unless ($prereturn) |
|
64
|
0 |
0 |
if $wrapper{'post'} |
|
70
|
0 |
0 |
if $wrapper{'pre'} |
|
71
|
0 |
0 |
unless ($prereturn) |
|
74
|
0 |
0 |
if $wrapper{'post'} |
|
79
|
0 |
0 |
defined wantarray ? : |
|
|
0 |
0 |
if ref $typeglob eq 'CODE' |
|
86
|
0 |
0 |
unless defined wantarray |