| 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 |
19 |
if $opts{'reverse'} |
|
285
|
0 |
25 |
if $counter >= $limit and $limit > 0 |
|
287
|
25 |
0 |
unless (exists $info->[13]) |
|
290
|
4 |
21 |
if (my(@f) = $info->[1] =~ /\(eval \d+\)/gu) { } |
|
296
|
2 |
2 |
unless $opts{'keep'} |
|
300
|
0 |
21 |
unless open my $fh, "<", $info->[1] |
|
314
|
4 |
21 |
if ($opts{'start_mark'}) |
|
318
|
3 |
19 |
if (/$start_mark/u) |
|
329
|
4 |
21 |
if ($opts{'end_mark'}) |
|
333
|
3 |
12 |
if (/$end_mark/u) |
|
341
|
0 |
25 |
if $opts{'start_offset'} |
|
342
|
0 |
25 |
if $opts{'end_offset'} |
|
347
|
0 |
25 |
if $info->[2] > $end_line |
|
362
|
3 |
22 |
$min < $start_line ? : |
|
364
|
5 |
20 |
$max > $end_line ? : |
|
389
|
23 |
217 |
if $l == $target |
|
400
|
0 |
6 |
$1 - 1 > $max ? : |
|
403
|
9 |
16 |
unless $opts{'clean'} |
|
407
|
0 |
24 |
if ($opts{'splain'}) |
|
419
|
0 |
10 |
if defined $_[0] and $_[0] eq __PACKAGE__ |
|
423
|
2 |
8 |
unless $error |
|
444
|
7 |
1 |
unless ($opts{'reverse'}) |
|
466
|
3 |
5 |
if ($do_internal_frames and @$frames == 0) |
|
488
|
0 |
0 |
if (not defined $depth or $depth < 0 or $depth > @$frames) |
|
498
|
1 |
7 |
if $opts{'reverse'} |
|
509
|
0 |
16 |
if ((builtin::blessed($e) // '') eq 'Devel::StackTrace::Frame') { } |
|
530
|
0 |
16 |
if $a->[0] eq __PACKAGE__ |
|
537
|
0 |
16 |
if $opts{'message'} |
|
548
|
1 |
7 |
if ($opts{'reverse'}) |
|
567
|
0 |
0 |
unless ($pid) |
|
573
|
0 |
0 |
if (not $pid and $@) |
|
587
|
0 |
0 |
if ($@) |
|
601
|
0 |
2 |
if (ref $code eq "CODE") |
|
630
|
1 |
1 |
if (not defined $sub or $error) |
|
631
|
1 |
0 |
if (not ref $error) { } |
|
661
|
0 |
1 |
if ($error) |
|
662
|
0 |
0 |
if (not ref $error) { } |
|
697
|
0 |
2 |
if (ref $error) { } |