| line |
true |
false |
branch |
|
24
|
0 |
0 |
unless $DB::namespace_package
|
|
142
|
1 |
0 |
if -f $filename
|
|
145
|
0 |
0 |
if -f $filename
|
|
168
|
0 |
1 |
if (scalar @_ == 1) { }
|
|
170
|
0 |
0 |
if ($Devel::Trepan::DB::LineCache::file_cache{$filename})
|
|
194
|
0 |
0 |
if 'plain' eq $format
|
|
249
|
0 |
0 |
unless defined $opts
|
|
254
|
0 |
0 |
if (defined $filename) { }
|
|
|
0 |
0 |
elsif (exists $Devel::Trepan::DB::LineCache::file_cache{$filename}) { }
|
|
264
|
0 |
0 |
unless exists $Devel::Trepan::DB::LineCache::file_cache{$filename}
|
|
266
|
0 |
0 |
if (-f $path) { }
|
|
269
|
0 |
0 |
if ($cache_info)
|
|
270
|
0 |
0 |
if ($stat and $cache_info->{'size'} != $stat->size || $cache_info->{'mtime'} != $stat->mtime)
|
|
298
|
0 |
0 |
unless defined $opts
|
|
299
|
0 |
0 |
if (exists $Devel::Trepan::DB::LineCache::script_cache{$script}) { }
|
|
341
|
1 |
0 |
unless defined $opts
|
|
342
|
1 |
0 |
if (exists $Devel::Trepan::DB::LineCache::file_cache{$filename}) { }
|
|
343
|
0 |
1 |
if $reload_on_change
|
|
345
|
0 |
0 |
unless defined $opts->{'use_perl_d_file'}
|
|
348
|
1 |
0 |
if (exists $Devel::Trepan::DB::LineCache::file_cache{$filename}) { }
|
|
368
|
0 |
0 |
unless defined $file_or_script
|
|
410
|
2 |
2 |
unless defined $opts
|
|
416
|
0 |
4 |
unless $lines
|
|
419
|
4 |
0 |
if (defined $lines and @$lines and $index >= 0 and $index <= $max_index) { }
|
|
422
|
0 |
4 |
unless defined $line
|
|
423
|
0 |
4 |
if ($max_continue > 1)
|
|
426
|
0 |
0 |
$plain_lines eq $lines ? :
|
|
430
|
0 |
0 |
unless $next_line
|
|
433
|
0 |
0 |
if $Devel::Trepan::DB::LineCache::file_cache{$filename}{'trace_nums'}{$index + 1}
|
|
436
|
4 |
0 |
if defined $line
|
|
466
|
1 |
6 |
unless defined $opts
|
|
469
|
0 |
7 |
if $reload_on_change
|
|
471
|
5 |
2 |
if (exists $Devel::Trepan::DB::LineCache::file_cache{$filename}) { }
|
|
|
0 |
2 |
elsif (exists $Devel::Trepan::DB::LineCache::script_cache{$filename}) { }
|
|
474
|
5 |
0 |
if $format eq 'plain'
|
|
475
|
0 |
0 |
if ($opts->{'output'} and not defined $lines_aref) { }
|
|
492
|
0 |
0 |
if ($opts->{'output'} and not defined $lines_aref) { }
|
|
507
|
2 |
0 |
if (exists $Devel::Trepan::DB::LineCache::file_cache{$filename}) { }
|
|
545
|
0 |
0 |
unless exists $Devel::Trepan::DB::LineCache::file_cache{$filename}
|
|
608
|
0 |
0 |
if $lines[0] eq "use Devel::Trepan;\n"
|
|
618
|
0 |
0 |
unless $to_file
|
|
620
|
0 |
0 |
unless defined $ary_ref
|
|
653
|
0 |
1 |
unless exists $Devel::Trepan::DB::LineCache::file_cache{$filename}
|
|
655
|
0 |
1 |
if exists $Devel::Trepan::DB::LineCache::file_cache{$filename}{'sha1'}
|
|
659
|
0 |
107 |
unless defined $line
|
|
693
|
0 |
0 |
unless exists $Devel::Trepan::DB::LineCache::file_cache{$file_or_script}
|
|
695
|
0 |
0 |
unless defined $lines_href
|
|
730
|
0 |
0 |
unless exists $Devel::Trepan::DB::LineCache::file_cache{$filename}
|
|
755
|
0 |
1 |
unless $fullname
|
|
776
|
0 |
0 |
unless $fullname
|
|
795
|
0 |
6 |
unless defined $filename
|
|
796
|
1 |
5 |
if ($file2file_remap{$filename}) { }
|
|
|
0 |
5 |
elsif ($script2file{$filename}) { }
|
|
801
|
5 |
0 |
if -r $filename
|
|
803
|
0 |
0 |
if defined $testpath and -r $testpath
|
|
826
|
0 |
1 |
if (exists $script2file{$script})
|
|
832
|
0 |
1 |
unless defined $string
|
|
846
|
0 |
4 |
if (exists $file2file_remap_lines{$file})
|
|
851
|
0 |
0 |
if ($range[0] >= $line and $range[-1] <= $line)
|
|
874
|
0 |
10 |
unless defined $filename
|
|
897
|
0 |
1 |
unless &filename_is_eval($script)
|
|
900
|
1 |
0 |
if (defined $string) { }
|
|
904
|
0 |
0 |
if ($script eq $DB::filename) { }
|
|
906
|
0 |
0 |
if (not @DB::line and $script =~ /^sub (\S+)/)
|
|
909
|
0 |
0 |
unless $string
|
|
923
|
0 |
0 |
unless length $string
|
|
926
|
0 |
1 |
if $opts->{'output'} and $opts->{'output'} ne 'plain'
|
|
966
|
1 |
0 |
if ($is_file) { }
|
|
968
|
0 |
1 |
unless open $fh, '<', $filename
|
|
981
|
1 |
0 |
if ($mark_trace and open $fh, '-|', "$cmd 2>/dev/null")
|
|
983
|
0 |
6 |
unless $line =~ /^\d+$/
|
|
990
|
6 |
9 |
exists $break_line[$i] ? :
|
|
1025
|
0 |
1 |
if (defined $eval_string) { }
|
|
1048
|
10 |
0 |
if (-r $path) { }
|
|
1075
|
1 |
4 |
unless defined $opts
|
|
1077
|
1 |
4 |
unless defined $use_perl_d_file
|
|
1079
|
0 |
5 |
unless $filename
|
|
1085
|
5 |
0 |
unless ($is_eval)
|
|
1086
|
5 |
0 |
if -f $filename
|
|
1091
|
4 |
1 |
if ($use_perl_d_file)
|
|
1093
|
0 |
4 |
if ($is_eval)
|
|
1097
|
1 |
3 |
if exists $file2file_remap{$path}
|
|
1100
|
5 |
0 |
if (scalar @{"main::_<$name";})
|
|
1111
|
5 |
0 |
if (-r $path)
|
|
1116
|
5 |
22 |
if (defined $raw_lines->[$i])
|
|
1121
|
0 |
5 |
if ($totally_empty) { }
|
|
1126
|
159 |
22 |
if (defined $raw_lines->[$i]) { }
|
|
1128
|
18 |
141 |
if $raw_lines->[$i] != 0
|
|
1130
|
0 |
159 |
if $raw_lines->[$i] ne $lines[$i]
|
|
1140
|
0 |
1 |
if ($opts->{'output'} and $opts->{'output'} ne 'plain' and defined $raw_lines)
|
|
1154
|
5 |
0 |
if (-f $path) { }
|
|
|
0 |
0 |
elsif (not $read_file) { }
|
|
1155
|
1 |
4 |
unless defined $stat
|
|
1157
|
0 |
0 |
if (basename($filename) eq $filename)
|
|
1161
|
0 |
0 |
if (-f $path)
|
|
1167
|
0 |
0 |
unless defined $stat
|
|
1169
|
5 |
0 |
if (-r $path)
|
|
1172
|
0 |
5 |
if ($opts->{'output'} and $opts->{'output'} ne 'plain')
|