| 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}) { }
|
|
822
|
0 |
1 |
if (exists $script2file{$script})
|
|
828
|
0 |
1 |
unless defined $string
|
|
842
|
0 |
4 |
if (exists $file2file_remap_lines{$file})
|
|
847
|
0 |
0 |
if ($range[0] >= $line and $range[-1] <= $line)
|
|
870
|
0 |
10 |
unless defined $filename
|
|
893
|
0 |
1 |
unless &filename_is_eval($script)
|
|
896
|
1 |
0 |
if (defined $string) { }
|
|
900
|
0 |
0 |
if ($script eq $DB::filename) { }
|
|
902
|
0 |
0 |
if (not @DB::line and $script =~ /^sub (\S+)/)
|
|
905
|
0 |
0 |
unless $string
|
|
919
|
0 |
0 |
unless length $string
|
|
922
|
0 |
1 |
if $opts->{'output'} and $opts->{'output'} ne 'plain'
|
|
962
|
1 |
0 |
if ($is_file) { }
|
|
964
|
0 |
1 |
unless open $fh, '<', $filename
|
|
977
|
1 |
0 |
if ($mark_trace and open $fh, '-|', "$cmd 2>/dev/null")
|
|
979
|
0 |
6 |
unless $line =~ /^\d+$/
|
|
986
|
6 |
9 |
exists $break_line[$i] ? :
|
|
1021
|
0 |
1 |
if (defined $eval_string) { }
|
|
1044
|
10 |
0 |
if (-r $path) { }
|
|
1071
|
1 |
4 |
unless defined $opts
|
|
1073
|
1 |
4 |
unless defined $use_perl_d_file
|
|
1075
|
0 |
5 |
unless $filename
|
|
1081
|
5 |
0 |
unless ($is_eval)
|
|
1082
|
5 |
0 |
if -f $filename
|
|
1087
|
4 |
1 |
if ($use_perl_d_file)
|
|
1089
|
0 |
4 |
if ($is_eval)
|
|
1093
|
1 |
3 |
if exists $file2file_remap{$path}
|
|
1096
|
5 |
0 |
if (scalar @{"main::_<$name";})
|
|
1107
|
5 |
0 |
if (-r $path)
|
|
1112
|
5 |
22 |
if (defined $raw_lines->[$i])
|
|
1117
|
0 |
5 |
if ($totally_empty) { }
|
|
1122
|
159 |
22 |
if (defined $raw_lines->[$i]) { }
|
|
1124
|
18 |
141 |
if $raw_lines->[$i] != 0
|
|
1126
|
0 |
159 |
if $raw_lines->[$i] ne $lines[$i]
|
|
1136
|
0 |
1 |
if ($opts->{'output'} and $opts->{'output'} ne 'plain' and defined $raw_lines)
|
|
1150
|
5 |
0 |
if (-f $path) { }
|
|
|
0 |
0 |
elsif (not $read_file) { }
|
|
1151
|
1 |
4 |
unless defined $stat
|
|
1153
|
0 |
0 |
if (basename($filename) eq $filename)
|
|
1157
|
0 |
0 |
if (-f $path)
|
|
1163
|
0 |
0 |
unless defined $stat
|
|
1165
|
5 |
0 |
if (-r $path)
|
|
1168
|
0 |
5 |
if ($opts->{'output'} and $opts->{'output'} ne 'plain')
|