Branch Coverage

blib/lib/Devel/Init.pm
Criterion Covered Total %
branch 41 74 55.4


line true false branch
37 7 2 if $Devel::Init::DefaultInit
49 5 10 if (/^:Init$/) { }
1 9 elsif (/^:NoDefault$/) { }
0 9 elsif (/^-(No)?StackTrace$/) { }
2 7 elsif (/^\@(Predicates)$/) { }
6 1 elsif (/^&?(RunInits|RegisterInit|InitBlock|InitSub)$/) { }
59 1 5 if 'RunInits' eq $sub
82 0 8 if $type ne ref $src
84 0 8 unless $src
86 1 7 if (*{$glob;}{$type})
99 17 9 if ('GLOB' ne ref $glob)
111 0 17 if 'GLOB' ne ref $glob
125 5 0 if (not $prev) { }
136 5 0 if (not $prev) { }
151 0 0 if ('CODE' eq ref $code) { }
156 0 0 unless $Devel::Init::Attribs{0 + $code}
167 5 0 if (/^Init\b/) { }
185 0 13 if (/^(\\?)\@(\w+)$/) { }
0 13 elsif (not /^\w[-.\w]*$/) { }
188 0 0 if (not $av) { }
0 0 elsif ($asRef) { }
205 13 2 @conds ? :
227 0 5 if (defined $val)
234 0 5 if (wantarray) { }
241 0 5 wantarray ? :
250 0 0 if ($Devel::Init::StackTrace)
284 0 0 if (not $Devel::Init::StackTrace) { }
290 0 0 unless $prev
297 0 13 if (not $okay)
298 0 0 $Devel::Init::StackTrace && $error ? :
310 7 17 if (s/^not_//) { }
8 9 elsif (s/^only_//) { }
325 15 2 if 'ARRAY' eq ref $code
330 4 21 if 1 < abs(($need{$cond} || 0) - ($$hvHave{$cond} || 0))
344 0 0 if (/^-(No)StackTrace$/i) { }
355 17 0 unless $fail
358 0 12 if $fail