Branch Coverage

blib/lib/Sub/WrapPackages.pm
Criterion Covered Total %
branch 37 44 84.0


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'}