| line |
true |
false |
branch |
|
40
|
0 |
52 |
if ref $_[0] |
|
57
|
52 |
368 |
if $pack eq 'Carp::Clan' |
|
58
|
316 |
52 |
if ($error eq '') { } |
|
59
|
0 |
316 |
if (defined $eval) { } |
|
|
52 |
264 |
elsif ($sub eq '(eval)') { } |
|
60
|
0 |
0 |
unless $require |
|
63
|
0 |
0 |
if $Carp::Clan::MaxEvalLen and length $eval > $Carp::Clan::MaxEvalLen |
|
65
|
0 |
0 |
if ($require) { } |
|
71
|
264 |
0 |
if ($hargs) |
|
75
|
0 |
264 |
if ($Carp::Clan::MaxArgNums and @parms > $Carp::Clan::MaxArgNums) |
|
81
|
528 |
0 |
if (defined $_) { } |
|
82
|
0 |
528 |
if (ref $_) { } |
|
86
|
396 |
132 |
unless (/^-?\d+(?:\.\d+(?:[eE][+-]\d+)?)?$/) |
|
91
|
0 |
396 |
if $Carp::Clan::MaxArgLen and length $_ > $Carp::Clan::MaxArgLen |
|
100
|
0 |
264 |
if $push |
|
104
|
0 |
316 |
if ($msg eq '') { } |
|
109
|
0 |
52 |
if ($error =~ /\b$msg\b/) { } |
|
111
|
52 |
0 |
if ($sub =~ /::/) { } |
|
115
|
368 |
0 |
unless $error =~ /\n$/ |
|
132
|
0 |
44 |
if ref $_[0] |
|
133
|
0 |
44 |
if $Carp::Clan::Verbose or $verbose |
|
139
|
196 |
36 |
if $pack eq 'Carp::Clan' or $pack =~ /$pattern/ |
|
140
|
0 |
36 |
if ($error eq '') { } |
|
143
|
0 |
36 |
if ($error =~ /\b$msg\b/) { } |
|
145
|
36 |
0 |
if ($sub =~ /::/) { } |
|
149
|
36 |
0 |
unless $error =~ /\n$/ |
|
170
|
2 |
0 |
$callpkg eq 'main' ? : |
|
177
|
2 |
0 |
$callpkg eq 'main' ? : |
|
189
|
5 |
18 |
$callpkg eq 'main' ? : |
|
195
|
0 |
19 |
if ($item =~ /^\d/) { } |
|
|
0 |
19 |
elsif ($item =~ /^verbose$/i) { } |
|
196
|
0 |
0 |
if ($Carp::Clan::VERSION < $item) |
|
211
|
23 |
0 |
if ($] >= 5.005) { } |
|
217
|
0 |
23 |
if ($@) |