Branch Coverage

blib/lib/Devel/StealthDebug.pm
Criterion Covered Total %
branch 39 56 69.6


line true false branch
75 1 8 if ($Emit eq 'carp') { }
2 6 elsif ($Emit eq 'croak') { }
5 1 elsif ($Emit eq 'print') { }
0 1 elsif (ref $Emit =~ /CODE/) { }
92 1 0 if ($emit =~ /(carp|croak|print)/)
124 1 1 if ($DUMPER) { }
126 0 0 @vars ? :
131 0 1 $i++ ? :
147 2 8 if ($type =~ /^($ref=)?HASH/) { }
1 7 elsif ($type =~ /^($ref=)?ARRAY/) { }
0 7 elsif ($type =~ /^($ref=)?SCALAR/) { }
157 1 9 if ($tabn - $TABLEN == -1)
174 0 6 if (ref $elem) { }
191 5 2 unless ($scalar =~ /\d+/)
239 7 0 if ($orig =~ /\s*my\s*[\@\$\%]/)
244 3 4 if ($orig =~ /(=|\+\+|--)/)
249 0 0 unless $pre or $post
266 1 2 if ($ok)
298 0 3 if $value
306 4 11 if ($$object{'name'} =~ /^\@/) { }
7 4 elsif ($$object{'name'} =~ /^\$/) { }
4 0 elsif ($$object{'name'} =~ /^\%/) { }
333 4 11 if ($$object{'name'} =~ /^\@/) { }
7 4 elsif ($$object{'name'} =~ /^\$/) { }
4 0 elsif ($$object{'name'} =~ /^\%/) { }
365 0 2 $value ? :
376 0 2 $value ? :
394 0 0 if $$object{'value'}{$key}