| line |
true |
false |
branch |
|
7
|
10 |
0 |
"$]" >= 5.01 ? : |
|
9
|
0 |
0 |
unless defined &DB::DB |
|
29
|
54 |
126 |
if $Carp::Internal{$pack} or $Carp::CarpInternal{$pack} |
|
31
|
0 |
126 |
if $evalonly and not $file =~ /^\(eval \d+\)(?:\[|$)/ |
|
35
|
30 |
96 |
if $start < 1 |
|
36
|
7 |
119 |
if $start > $#$lines |
|
38
|
35 |
91 |
if $end > $#$lines |
|
44
|
119 |
621 |
if ($want_color and $read_line == $line) |
|
51
|
0 |
21 |
unless @out |
|
63
|
70 |
56 |
if (exists $main::main::{'_<' . $file} and @{'::_<' . $file;}) { } |
|
|
7 |
49 |
elsif ($file =~ /^\(eval \d+\)(?:\[.*\])?$/) { } |
|
|
49 |
0 |
elsif (open my $fh, '<', $file) { } |