| 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 ($@) |