| line |
true |
false |
branch |
|
54
|
3 |
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'} |
|
244
|
0 |
17 |
if $opts{'reverse'} |
|
250
|
0 |
14 |
if $counter >= $limit and $limit > 0 |
|
252
|
14 |
0 |
unless (exists $info->[13]) |
|
255
|
4 |
10 |
if ($info->[6]) { } |
|
260
|
0 |
10 |
unless open my $fh, "<", $info->[1] |
|
274
|
2 |
12 |
if ($opts{'start_mark'}) |
|
278
|
2 |
6 |
if (/$start_mark/u) |
|
289
|
2 |
12 |
if ($opts{'end_mark'}) |
|
293
|
2 |
6 |
if (/$end_mark/u) |
|
301
|
0 |
14 |
if $opts{'start_offset'} |
|
302
|
0 |
14 |
if $opts{'end_offset'} |
|
307
|
0 |
14 |
if $info->[2] > $end_line |
|
322
|
5 |
9 |
$min < $start_line ? : |
|
324
|
3 |
11 |
$max > $end_line ? : |
|
348
|
14 |
117 |
if $l == $target |
|
359
|
0 |
10 |
$1 - 1 > $max ? : |
|
361
|
14 |
0 |
unless $opts{'clean'} |
|
364
|
0 |
17 |
if ($opts{'splain'}) |
|
399
|
13 |
4 |
if (defined $error and ref $error eq '') { } |
|
408
|
0 |
4 |
if $opts{'program'} |
|
429
|
3 |
11 |
if (@_ == 0) { } |
|
|
3 |
8 |
elsif (@_ == 1) { } |
|
439
|
1 |
13 |
if ($opts{'frames'}) |
|
449
|
0 |
14 |
if ((&blessed($opts{'error'}) // '') eq $dstf) { } |
|
|
0 |
14 |
elsif ($ref eq 'ARRAY' and ref $opts{'error'}[0] eq '') { } |
|
|
13 |
1 |
elsif ($ref eq '') { } |
|
|
1 |
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) { } |
|
476
|
1 |
13 |
if (ref $opts{'error'} eq 'ARRAY' and ref $opts{'error'}[0]) { } |
|
484
|
0 |
4 |
if ((&blessed($e) // "") eq "Devel::StackTrace::Frame") |
|
500
|
4 |
0 |
if ($e->[1] and $e->[2]) { } |
|
505
|
4 |
0 |
if $opts{'message'} |
|
533
|
0 |
0 |
unless ($pid) |
|
539
|
0 |
0 |
if (not $pid and $@) |
|
553
|
0 |
0 |
if ($@) |