| line |
true |
false |
branch |
|
175
|
18 |
1 |
if @_ |
|
185
|
212 |
130 |
if ref $v ne 'SCALAR' and defined &{$v;} |
|
202
|
107 |
9 |
unless grep {$module =~ /^$_(::|$)/;} @{$wildcard_packages;} or grep {$module eq $_;} @{$nonwildcard_packages;} |
|
207
|
0 |
9 |
unless open my $fh, $files[0] |
|
237
|
29 |
3 |
if (exists $params{'packages'} and ref($params{'packages'}) =~ /^ARRAY/) { } |
|
|
0 |
3 |
elsif (exists $params{'packages'}) { } |
|
245
|
2 |
27 |
if (@{$wildcard_packages;}) |
|
250
|
1 |
153 |
if $loaded =~ /$pattern/ |
|
255
|
11 |
18 |
if ($params{'wrap_inherited'}) |
|
273
|
4 |
39 |
if exists $Sub::WrapPackages::INHERITED{$package . "::$sub"} |
|
278
|
5 |
34 |
if (exists $Sub::WrapPackages::WRAPPED_BY_WRAPPER{$Sub::WrapPackages::INHERITED{$package . "::$sub"}}) |
|
287
|
0 |
39 |
if $@ |
|
296
|
0 |
3 |
unless $params{'pre'} or $params{'post'} |
|
301
|
8 |
143 |
if exists $Sub::WrapPackages::ORIGINAL_SUBS{$sub} |
|
308
|
8 |
45 |
if (not defined $wa) { } |
|
|
16 |
29 |
elsif ($wa) { } |
|
321
|
16 |
37 |
wantarray ? : |
|
323
|
26 |
117 |
if prototype $Sub::WrapPackages::ORIGINAL_SUBS{$sub} |