| line |
true |
false |
branch |
|
32
|
0 |
0 |
unless exists $main::main::{$pack} |
|
34
|
0 |
0 |
unless ref \$_ eq 'GLOB' and *$_{'HASH'} and exists $_->{$sub} |
|
37
|
0 |
0 |
ref \$_ eq 'GLOB' ? : |
|
129
|
0 |
0 |
if $_[0] eq 'verbose' |
|
133
|
0 |
0 |
if defined &{'CORE::GLOBAL::caller';} |
|
146
|
0 |
0 |
$cgc ? : |
|
147
|
0 |
0 |
if ($Internal{$call_pack} or $CarpInternal{$call_pack}) { } |
|
163
|
0 |
0 |
$cgc ? : |
|
196
|
0 |
0 |
$cgc ? : |
|
200
|
0 |
0 |
unless (defined $call_info{'file'}) |
|
205
|
0 |
0 |
if ($call_info{'has_args'}) |
|
207
|
0 |
0 |
if (@DB::args == 1 and ref $DB::args[0] eq ref \$i and $DB::args[0] == \$i) { } |
|
231
|
0 |
0 |
if ($MaxArgNums and @args > $MaxArgNums) |
|
239
|
0 |
0 |
if ($overflow) |
|
248
|
0 |
0 |
wantarray ? : |
|
256
|
0 |
0 |
if (ref $arg) |
|
258
|
0 |
0 |
if (not $in_recurse and do {
local $@;
local $in_recurse = 1;
local $SIG{'__DIE__'} = sub {
}
;
eval {
do {
$arg->can('CARP_TRACE')
}
}
}) { } |
|
|
0 |
0 |
elsif (not $in_recurse and defined $RefArgFormatter and do {
local $@;
local $in_recurse = 1;
local $SIG{'__DIE__'} = sub {
}
;
eval {
do {
$arg = &$RefArgFormatter($arg);
1
}
}
}) { } |
|
282
|
0 |
0 |
$sub ? : |
|
285
|
0 |
0 |
unless defined $arg |
|
287
|
0 |
0 |
if $arg =~ /\A-?[0-9]+(?:\.[0-9]*)?(?:[eE][-+]?[0-9]+)?\z/ |
|
290
|
0 |
0 |
if (2 < $MaxArgLen and $MaxArgLen < length $arg) |
|
363
|
0 |
0 |
if ($arg =~ /\A\(\?\^?([a-z]*)(?:-[a-z]*)?:(.*)\)\z/s) |
|
366
|
0 |
0 |
if (2 < $MaxArgLen and $MaxArgLen < length $arg) |
|
388
|
0 |
0 |
if (defined $info->{'evaltext'}) |
|
390
|
0 |
0 |
if ($info->{'is_require'}) { } |
|
401
|
0 |
0 |
unless (defined $info->{'sub'}) |
|
405
|
0 |
0 |
$info->{'sub'} eq '(eval)' ? : |
|
416
|
0 |
0 |
$cgc ? : |
|
418
|
0 |
0 |
unless (defined $pkg) |
|
421
|
0 |
0 |
if (%Internal) { } |
|
|
0 |
0 |
elsif (defined $caller[2]) { } |
|
433
|
0 |
0 |
unless 0 > --$lvl |
|
440
|
0 |
0 |
if $CarpInternal{$pkg} |
|
441
|
0 |
0 |
unless 0 > --$lvl |
|
442
|
0 |
0 |
if $Internal{$pkg} |
|
448
|
0 |
0 |
if ref $_[0] |
|
462
|
0 |
0 |
if (defined &threads::tid) |
|
464
|
0 |
0 |
if $tid |
|
469
|
0 |
0 |
if (defined $.) |
|
475
|
0 |
0 |
if ($@ =~ /^Died at .*(, <.*?> line \d+).$/) |
|
494
|
0 |
0 |
if (defined &threads::tid) |
|
496
|
0 |
0 |
if $tid |
|
512
|
0 |
0 |
$cgc ? : |
|
514
|
0 |
0 |
$cgc ? : |
|
516
|
0 |
0 |
unless (defined $caller) |
|
517
|
0 |
0 |
$cgc ? : |
|
518
|
0 |
0 |
if (@caller) { } |
|
522
|
0 |
0 |
if defined $called and $CarpInternal{$called} |
|
523
|
0 |
0 |
unless 0 > --$lvl |
|
530
|
0 |
0 |
if $Internal{$caller} |
|
531
|
0 |
0 |
if $CarpInternal{$caller} |
|
532
|
0 |
0 |
if $CarpInternal{$called} |
|
533
|
0 |
0 |
if trusts($called, $caller, $cache) |
|
534
|
0 |
0 |
if trusts($caller, $called, $cache) |
|
535
|
0 |
0 |
unless 0 > --$lvl |
|
541
|
0 |
0 |
if $Verbose |
|
542
|
0 |
0 |
if ref $_[0] |
|
544
|
0 |
0 |
if ($i) { } |
|
556
|
0 |
0 |
if (2 < $max and $max < length $str) |
|
577
|
0 |
0 |
if exists $known->{$anc} |
|
595
|
0 |
0 |
if ($stash->{$var} and *{$stash->{$var};}{'ARRAY'} and @{$stash->{$var};}) |