| line |
true |
false |
branch |
|
54
|
4 |
0 |
if $caller[2] |
|
65
|
0 |
0 |
$do_warn ? : |
|
82
|
0 |
0 |
unless @IINC |
|
83
|
0 |
0 |
unless open my $fh, "-|", $^X . " -E 'map print(\"\$_\\n\"), \@INC'" |
|
114
|
0 |
0 |
if $file eq "-e" or $file eq "-E" or $file eq "-" |
|
115
|
0 |
0 |
unless -f $file |
|
128
|
0 |
0 |
if (not $pid and $@) |
|
138
|
0 |
0 |
$? > 255 ? : |
|
145
|
0 |
0 |
if ($^C) { } |
|
146
|
0 |
0 |
if ($runnable) { } |
|
148
|
0 |
0 |
$do_warn ? : |
|
161
|
0 |
0 |
if ($runnable) { } |
|
182
|
13 |
0 |
if (defined $error) { } |
|
192
|
10 |
0 |
if (/at (.*?) line (\d+)/u or /Missing right curly or square bracket at (.*?) (\d+) at end of line/u) |
|
205
|
0 |
10 |
if $opts{'message'} |
|
207
|
4 |
6 |
if $opts{'program'} |
|
245
|
3 |
20 |
if $opts{'reverse'} |
|
251
|
0 |
20 |
if $counter >= $limit and $limit > 0 |
|
253
|
20 |
0 |
unless (exists $info->[13]) |
|
256
|
4 |
16 |
if ($info->[6]) { } |
|
261
|
0 |
16 |
unless open my $fh, "<", $info->[1] |
|
275
|
2 |
18 |
if ($opts{'start_mark'}) |
|
279
|
2 |
6 |
if (/$start_mark/u) |
|
290
|
2 |
18 |
if ($opts{'end_mark'}) |
|
294
|
2 |
6 |
if (/$end_mark/u) |
|
302
|
0 |
20 |
if $opts{'start_offset'} |
|
303
|
0 |
20 |
if $opts{'end_offset'} |
|
308
|
0 |
20 |
if $info->[2] > $end_line |
|
323
|
5 |
15 |
$min < $start_line ? : |
|
325
|
5 |
15 |
$max > $end_line ? : |
|
349
|
20 |
171 |
if $l == $target |
|
360
|
0 |
10 |
$1 - 1 > $max ? : |
|
362
|
20 |
0 |
unless $opts{'clean'} |
|
365
|
0 |
23 |
if ($opts{'splain'}) |
|
400
|
13 |
10 |
if (defined $error and ref $error eq '') { } |
|
409
|
0 |
10 |
if $opts{'program'} |
|
430
|
3 |
13 |
if (@_ == 0) { } |
|
|
3 |
10 |
elsif (@_ == 1) { } |
|
440
|
3 |
13 |
if ($opts{'frames'}) |
|
449
|
0 |
16 |
if ((&blessed($opts{'error'}) // '') eq $dstf) { } |
|
|
0 |
16 |
elsif ($ref eq 'ARRAY' and ref $opts{'error'}[0] eq '') { } |
|
|
13 |
3 |
elsif ($ref eq '') { } |
|
|
3 |
0 |
elsif ($ref eq 'ARRAY' and ref $opts{'error'}[0] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($ref eq 'ARRAY' and &blessed($opts{'error'}[0]) eq $dstf) { } |
|
477
|
1 |
15 |
if $opts{'reverse'} |
|
480
|
3 |
13 |
if (ref $opts{'error'} eq 'ARRAY' and ref $opts{'error'}[0]) { } |
|
489
|
0 |
10 |
if ((&blessed($e) // "") eq "Devel::StackTrace::Frame") |
|
507
|
10 |
0 |
if ($e->[1] and $e->[2]) { } |
|
512
|
4 |
6 |
if $opts{'message'} |
|
542
|
0 |
0 |
unless ($pid) |
|
548
|
0 |
0 |
if (not $pid and $@) |
|
562
|
0 |
0 |
if ($@) |