| line |
true |
false |
branch |
| 40 |
0 |
26 |
if ref $_[0] |
| 57 |
26 |
184 |
if $pack eq 'Carp::Clan' |
| 58 |
158 |
26 |
if ($error eq '') { } |
| 59 |
0 |
158 |
if (defined $eval) { } |
| |
26 |
132 |
elsif ($sub eq '(eval)') { } |
| 60 |
0 |
0 |
unless $require |
| 63 |
0 |
0 |
if $MaxEvalLen and length $eval > $MaxEvalLen |
| 65 |
0 |
0 |
if ($require) { } |
| 71 |
132 |
0 |
if ($hargs) |
| 75 |
0 |
132 |
if ($MaxArgNums and @parms > $MaxArgNums) |
| 81 |
264 |
0 |
if (defined $_) { } |
| 82 |
0 |
264 |
if (ref $_) { } |
| 86 |
264 |
0 |
unless (/^-?\d+(?:\.\d+(?:[eE][+-]\d+)?)?$/) |
| 91 |
0 |
264 |
if $MaxArgLen and length $_ > $MaxArgLen |
| 100 |
0 |
132 |
if $push |
| 104 |
0 |
158 |
if ($msg eq '') { } |
| 108 |
26 |
0 |
if ($sub =~ /::/) { } |
| 111 |
184 |
0 |
unless $error =~ /\n$/ |
| 128 |
0 |
22 |
if ref $_[0] |
| 129 |
0 |
22 |
if $Verbose or $verbose |
| 135 |
98 |
18 |
if $pack eq 'Carp::Clan' or $pack =~ /$pattern/ |
| 136 |
0 |
18 |
if ($error eq '') { } |
| |
18 |
0 |
elsif ($sub =~ /::/) { } |
| 139 |
18 |
0 |
unless $error =~ /\n$/ |
| 157 |
1 |
0 |
$callpkg eq 'main' ? : |
| 164 |
1 |
0 |
$callpkg eq 'main' ? : |
| 176 |
2 |
9 |
$callpkg eq 'main' ? : |
| 182 |
0 |
9 |
if ($item =~ /^\d/) { } |
| |
0 |
9 |
elsif ($item =~ /^verbose$/i) { } |
| 183 |
0 |
0 |
if ($VERSION < $item) |
| 198 |
11 |
0 |
if ($] >= 5.005) { } |
| 204 |
0 |
11 |
if ($@) |