| 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) { }
|