line |
true |
false |
branch |
216
|
240 |
132 |
if ref $v ne 'SCALAR' and defined &{$v;} |
233
|
148 |
11 |
unless grep {$module =~ /^$_(::|$)/;} @{$wildcard_packages;} or grep {$module eq $_;} @{$nonwildcard_packages;} |
238
|
0 |
11 |
unless open my $fh, $files[0] |
242
|
7 |
4 |
unless (%Sub::WrapPackages::params) |
244
|
0 |
7 |
if $params{'debug'} |
273
|
32 |
4 |
if (exists $params{'packages'} and ref($params{'packages'}) =~ /^ARRAY/) { } |
|
0 |
4 |
elsif (exists $params{'packages'}) { } |
281
|
3 |
29 |
if (@{$wildcard_packages;}) |
284
|
1 |
325 |
if ($loaded =~ /$pattern/) |
285
|
0 |
1 |
if $params{'debug'} |
292
|
11 |
21 |
if ($params{'wrap_inherited'}) |
310
|
4 |
39 |
if exists $INHERITED{$package . "::$sub"} |
315
|
5 |
34 |
if (exists $WRAPPED_BY_WRAPPER{$INHERITED{$package . "::$sub"}}) |
324
|
0 |
39 |
if $@ |
325
|
0 |
39 |
if $params{'debug'} |
334
|
1 |
3 |
unless $params{'pre'} or $params{'post'} |
341
|
9 |
170 |
if exists $params{'except'} and $sub =~ /$params{'except'}/ or exists $ORIGINAL_SUBS{$sub} |
349
|
9 |
46 |
if (not defined $wa) { } |
|
16 |
30 |
elsif ($wa) { } |
362
|
16 |
39 |
wantarray ? : |
365
|
38 |
132 |
if prototype $ORIGINAL_SUBS{$sub} |
374
|
0 |
170 |
if $params{'debug'} |