| line |
true |
false |
branch |
|
48
|
4 |
0 |
if ($caller[2]) |
|
76
|
0 |
0 |
$do_warn ? : |
|
93
|
0 |
0 |
unless @IINC |
|
94
|
0 |
0 |
unless open my $fh, "-|", $^X . q[ -E 'map print("$_\\n"), @INC'] |
|
125
|
0 |
0 |
if $file eq "-e" or $file eq "-E" or $file eq "-" |
|
126
|
0 |
0 |
unless -f $file |
|
139
|
0 |
0 |
if (not $pid and $@) |
|
149
|
0 |
0 |
$? > 255 ? : |
|
155
|
0 |
0 |
if ($^C) { } |
|
156
|
0 |
0 |
if ($runnable) { } |
|
158
|
0 |
0 |
$do_warn ? : |
|
171
|
0 |
0 |
if ($runnable) { } |
|
177
|
0 |
0 |
unless ($no_handler) |
|
180
|
0 |
0 |
if $^S or not defined $^S |
|
230
|
9 |
0 |
if (/at (.*?) line (\d+)/u or /Missing right curly or square bracket at (.*?) (\d+) at end of line/u) |
|
243
|
0 |
9 |
if $opts{'message'} |
|
245
|
0 |
9 |
if $opts{'program'} |
|
279
|
5 |
22 |
if $opts{'reverse'} |
|
285
|
0 |
28 |
if $counter >= $limit and $limit > 0 |
|
287
|
28 |
0 |
unless (exists $info->[13]) |
|
290
|
4 |
24 |
if (my(@f) = $info->[1] =~ /\(eval \d+\)/gu) { } |
|
296
|
2 |
2 |
unless $opts{'keep'} |
|
300
|
0 |
24 |
unless open my $fh, "<", $info->[1] |
|
314
|
5 |
23 |
if ($opts{'start_mark'}) |
|
318
|
4 |
32 |
if (/$start_mark/u) |
|
329
|
5 |
23 |
if ($opts{'end_mark'}) |
|
333
|
4 |
18 |
if (/$end_mark/u) |
|
341
|
0 |
28 |
if $opts{'start_offset'} |
|
342
|
0 |
28 |
if $opts{'end_offset'} |
|
347
|
0 |
28 |
if $info->[2] > $end_line |
|
362
|
3 |
25 |
$min < $start_line ? : |
|
364
|
6 |
22 |
$max > $end_line ? : |
|
388
|
26 |
242 |
if $l == $target |
|
399
|
0 |
6 |
$1 - 1 > $max ? : |
|
401
|
9 |
19 |
unless $opts{'clean'} |
|
404
|
0 |
27 |
if ($opts{'splain'}) |
|
416
|
0 |
10 |
if defined $_[0] and $_[0] eq __PACKAGE__ |
|
420
|
2 |
8 |
unless $error |
|
440
|
7 |
1 |
unless ($opts{'reverse'}) |
|
462
|
3 |
5 |
if ($do_internal_frames and @$frames == 0) |
|
484
|
1 |
7 |
if $opts{'reverse'} |
|
495
|
0 |
19 |
if ((builtin::blessed($e) // '') eq 'Devel::StackTrace::Frame') { } |
|
516
|
0 |
19 |
if $a->[0] eq __PACKAGE__ |
|
523
|
0 |
19 |
if $opts{'message'} |
|
534
|
1 |
7 |
if ($opts{'reverse'}) |
|
553
|
0 |
0 |
unless ($pid) |
|
559
|
0 |
0 |
if (not $pid and $@) |
|
573
|
0 |
0 |
if ($@) |
|
587
|
0 |
2 |
if (ref $code eq "CODE") |
|
616
|
1 |
1 |
if (not defined $sub or $error) |
|
617
|
1 |
0 |
if (not ref $error) { } |
|
647
|
0 |
1 |
if ($error) |
|
648
|
0 |
0 |
if (not ref $error) { } |
|
683
|
0 |
2 |
if (ref $error) { } |