| line |
true |
false |
branch |
|
216
|
246 |
134 |
if ref $v ne "SCALAR" and defined &{$v;} |
|
233
|
158 |
12 |
unless grep {$module =~ /^$_(::|$)/;} @{$wildcard_packages;} or grep {$module eq $_;} @{$nonwildcard_packages;} |
|
238
|
0 |
12 |
unless open my $fh, $files[0] |
|
242
|
8 |
4 |
unless (%Sub::WrapPackages::params) |
|
244
|
0 |
8 |
if $params{'debug'} |
|
273
|
34 |
4 |
if (exists $params{'packages'} and ref($params{'packages'}) =~ /^ARRAY/) { } |
|
|
0 |
4 |
elsif (exists $params{'packages'}) { } |
|
281
|
4 |
30 |
if (@{$wildcard_packages;}) |
|
284
|
1 |
452 |
if ($loaded =~ /$pattern/) |
|
285
|
0 |
1 |
if $params{'debug'} |
|
292
|
13 |
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 |
173 |
if exists $params{'except'} and $sub =~ /$params{'except'}/ or exists $ORIGINAL_SUBS{$sub} |
|
349
|
9 |
49 |
if (not defined $wa) { } |
|
|
19 |
30 |
elsif ($wa) { } |
|
362
|
19 |
39 |
wantarray ? : |
|
365
|
38 |
135 |
if prototype $ORIGINAL_SUBS{$sub} |
|
374
|
0 |
173 |
if $params{'debug'} |