Branch Coverage

blib/lib/Devel/Carp.pm
Criterion Covered Total %
branch 25 50 50.0


line true false branch
90 0 0 if $_[0] eq 'verbose'
103 11 7 if ($in_carp >= $MaxRecursion)
110 2 5 if ($@)
138 0 25 if ($error =~ /\n$/) { }
143 0 25 if (defined $eval) { }
4 21 elsif ($sub eq '(eval)') { }
144 0 0 if ($require) { }
148 0 0 if ($MaxEvalLen and length $eval > $MaxEvalLen)
159 21 4 if ($hargs)
163 0 21 if ($MaxArgNums and @a > $MaxArgNums)
171 4 32 unless defined $_
172 14 18 if (ref $_) { }
180 0 18 if $MaxArgLen and $MaxArgLen < length $_
184 18 0 unless /^-?[\d.]+$/
189 14 22 if ($@)
198 18 7 if $error eq 'called'
221 0 2 if $Verbose
222 0 2 if ($in_carp >= $MaxRecursion)
229 2 0 if ($@)
249 0 2 if defined @{"${prevpack}::ISA";}
257 0 0 if (defined @{$pack . '::ISA';})
262 0 0 if exists $i{$prevpack} or exists $isa{$pack}
271 0 0 if exists $isa{$pack}
278 0 0 if ($extra-- > 0) { }
281 0 0 if defined @{$pack . '::ISA';}