Branch Coverage

blib/lib/Carp/Clan.pm
Criterion Covered Total %
branch 36 68 52.9


line true false branch
40 0 52 if ref $_[0]
58 52 368 if $pack eq 'Carp::Clan'
59 316 52 if ($error eq '') { }
60 0 316 if (defined $eval) { }
52 264 elsif ($sub eq '(eval)') { }
61 0 0 unless $require
64 0 0 if $MaxEvalLen and length $eval > $MaxEvalLen
66 0 0 if ($require) { }
72 264 0 if ($hargs)
76 0 264 if ($MaxArgNums and @parms > $MaxArgNums)
82 528 0 if (defined $_) { }
83 0 528 if (ref $_) { }
87 396 132 unless (/^-?\d+(?:\.\d+(?:[eE][+-]\d+)?)?$/)
92 0 396 if $MaxArgLen and length $_ > $MaxArgLen
101 0 264 if $push
105 0 316 if ($msg eq '') { }
110 0 52 if ($error =~ /\b$msg\b/) { }
112 52 0 if ($sub =~ /::/) { }
116 368 0 unless $error =~ /\n$/
133 0 44 if ref $_[0]
134 0 44 if $Verbose or $verbose
140 196 36 if $pack eq 'Carp::Clan' or $pack =~ /$pattern/
141 0 36 if ($error eq '') { }
144 0 36 if ($error =~ /\b$msg\b/) { }
146 36 0 if ($sub =~ /::/) { }
150 36 0 unless $error =~ /\n$/
171 2 0 $callpkg eq 'main' ? :
178 2 0 $callpkg eq 'main' ? :
190 3 18 $callpkg eq 'main' ? :
196 0 17 if ($item =~ /^\d/) { }
0 17 elsif ($item =~ /^verbose$/i) { }
197 0 0 if ($VERSION < $item)
212 21 0 if ($] >= 5.005) { }
218 0 21 if ($@)