| line |
true |
false |
branch |
|
6
|
0 |
9 |
if (not defined &DB::DB and $^P & 2)
|
|
11
|
9 |
0 |
$can_use_informative_names ? :
|
|
38
|
0 |
9 |
"$]" >= 5.008009 && "$]" < 5.01 ? :
|
|
40
|
0 |
9 |
"$]" > 5.008009 && "$]" <= 5.01 ? :
|
|
42
|
0 |
9 |
"$]" < 5.008008 ? :
|
|
48
|
9 |
0 |
defined &Config::non_bincompat_options ? :
|
|
|
0 |
9 |
(defined &Config::non_bincompat_options ? grep(($_ eq 'DEBUGGING'), Config::non_bincompat_options()) : $Config::Config{'ccflags'} =~ /-DDEBUGGING\b/) ? :
|
|
97
|
52 |
1 |
defined $arg ? :
|
|
98
|
47 |
6 |
if (@match) { }
|
|
111
|
13 |
5 |
defined $ENABLEOPTS{$opt} ? :
|
|
|
2 |
18 |
@_ && (!defined($_[0]) || $_[0] =~ /^\d+$/) ? :
|
|
|
4 |
20 |
defined $num ? :
|
|
|
2 |
24 |
defined $equal ? :
|
|
|
21 |
26 |
defined $no ? :
|
|
114
|
16 |
31 |
if ($NUMOPTS{$opt})
|
|
115
|
2 |
14 |
!$value ? :
|
|
|
0 |
16 |
!defined($value) ? :
|
|
126
|
5 |
48 |
if (@bad)
|
|
128
|
5 |
1 |
defined $_ ? :
|
|
150
|
0 |
34 |
if (defined $OPTIONS{'builtin'})
|
|
152
|
0 |
0 |
$OPTIONS{'builtin'} ? :
|
|
155
|
10 |
24 |
if ($OPTIONS{'source'} or $OPTIONS{'evalsource'})
|
|
159
|
0 |
34 |
if ($OPTIONS{'color'} and $^O eq 'MSWin32')
|
|
160
|
0 |
0 |
if (eval {
do {
require Win32::Console::ANSI
}
}) { }
|
|
171
|
34 |
0 |
if ($OPTIONS{'errors'} and not $OLD_SIG{'__DIE__'})
|
|
173
|
5 |
29 |
if $SIG{'__DIE__'} and $SIG{'__DIE__'} ne \&Devel::Confess::_die
|
|
176
|
16 |
18 |
if ($OPTIONS{'warnings'} and not $OLD_SIG{'__WARN__'})
|
|
178
|
0 |
16 |
if $SIG{'__WARN__'} and $SIG{'__WARN__'} ne \&Devel::Confess::_warn
|
|
184
|
34 |
0 |
if $OPTIONS{'better_names'}
|
|
193
|
18 |
36 |
unless my $now = $SIG{$name}
|
|
195
|
0 |
36 |
if ($now ne $sub and $old) { }
|
|
|
5 |
31 |
elsif ($old) { }
|
|
216
|
56 |
5 |
unless defined $sig
|
|
217
|
1 |
4 |
if ref $sig
|
|
220
|
2 |
2 |
if $sig eq 'DEFAULT' or $sig eq 'IGNORE'
|
|
225
|
2 |
0 |
defined &{$sig;} ? :
|
|
230
|
0 |
2 |
if our $warn_deep
|
|
233
|
0 |
0 |
if (my $sig = _find_sig($OLD_SIG{'__WARN__'})) { }
|
|
235
|
0 |
0 |
ref $convert[0] ? :
|
|
239
|
0 |
0 |
if $OPTIONS{'color'}
|
|
247
|
0 |
63 |
if our $die_deep
|
|
249
|
3 |
58 |
if (my $sig = _find_sig($OLD_SIG{'__DIE__'}))
|
|
251
|
0 |
3 |
ref $convert[0] ? :
|
|
253
|
0 |
61 |
if &_can_stringify()
|
|
254
|
0 |
61 |
if $OPTIONS{'color'} and &_can_stringify()
|
|
261
|
58 |
3 |
unless ref $convert[0]
|
|
266
|
0 |
0 |
if ($OPTIONS{'color'} eq 'force' or -t *STDERR)
|
|
267
|
0 |
0 |
if (@convert == 1)
|
|
285
|
3 |
12 |
$OPTIONS{'dump'} == 9**9**9 ? :
|
|
292
|
7 |
58 |
$OPTIONS{'dump'} ? :
|
|
295
|
21 |
40 |
if ($OPTIONS{'source'} or $OPTIONS{'evalsource'})
|
|
297
|
0 |
21 |
$OPTIONS{'evalsource'} ? :
|
|
314
|
1 |
0 |
defined $ex ? :
|
|
329
|
0 |
0 |
if defined $EXCEPTIONS{$id}
|
|
340
|
3 |
62 |
if (my $class = &blessed(my $ex = $_[0])) { }
|
|
|
0 |
62 |
elsif (ref($ex = $_[0])) { }
|
|
342
|
0 |
3 |
unless $OPTIONS{'objects'}
|
|
344
|
0 |
3 |
unless do {
no strict 'refs';
defined &{'Devel::Confess::_Attached::DESTROY';}
}
|
|
347
|
0 |
3 |
if (defined $EXCEPTIONS{$id})
|
|
349
|
0 |
0 |
if _isa($ex, 'Devel::Confess::_Attached')
|
|
353
|
0 |
0 |
if (ref($ex) =~ /^Devel::Confess::__ANON_/) { }
|
|
365
|
0 |
3 |
if (grep {$ex->$does($_) unless $NoTrace{$_} and _can($ex, 'isa') and $ex->isa($_);} keys %NoTrace)
|
|
367
|
6 |
0 |
unless $NoTrace{$_} and _can($ex, 'isa') and $ex->isa($_)
|
|
406
|
24 |
38 |
if (caller 1 eq 'Carp')
|
|
410
|
12 |
12 |
unless $out =~ s/\Q$long\E\z|\Q$long_trail\E\z//
|
|
417
|
21 |
41 |
if $OPTIONS{'source'} or $OPTIONS{'evalsource'}
|
|
424
|
21 |
37 |
if $OPTIONS{'source'} or $OPTIONS{'evalsource'}
|
|
427
|
58 |
0 |
length $trace ? :
|
|
428
|
46 |
12 |
if $out =~ s/(\Q$find\E(?: during global destruction)?(\.?\n?))$trace_re\z//
|
|
430
|
9 |
49 |
if (defined $source_trace)
|
|
431
|
9 |
0 |
if (defined $new_source_trace)
|
|
437
|
21 |
37 |
if (defined $new_source_trace)
|
|
446
|
0 |
1 |
unless ref $ex
|
|
451
|
1 |
0 |
if (&blessed($ex)) { }
|
|
|
0 |
0 |
elsif ($OPTIONS{'dump'}) { }
|
|
453
|
1 |
0 |
if $class
|
|
454
|
0 |
1 |
if ($OPTIONS{'dump'} and not overload::OverloadedStringify($ex)) { }
|
|
460
|
1 |
0 |
if $class
|
|
483
|
0 |
0 |
$ex ? :
|
|
510
|
0 |
2 |
unless my $class = delete $PACKAGES{$id}
|
|
529
|
0 |
2 |
if (delete $CLONED{$id})
|