Branch Coverage

lib/Devel/Trepan/CmdProcessor/Command/List.pm
Criterion Covered Total %
branch 0 156 0.0


line true false branch
120 0 0 $start < $end ? :
0 0 $start < $end ? :
151 0 0 if (scalar @args > 0) { }
0 0 elsif ($frame and not $frame->{'line'} and $proc->{'frame'}) { }
0 0 if (scalar @args > 0) { }
0 0 elsif ($frame and not $frame->{'line'} and $proc->{'frame'}) { }
152 0 0 if ($args[0] eq '-') { }
0 0 elsif ($args[0] eq '.') { }
0 0 if ($args[0] eq '-') { }
0 0 elsif ($args[0] eq '.') { }
153 0 0 unless $proc->{'list_line'}
0 0 unless $proc->{'list_line'}
155 0 0 if $start < 1
0 0 if $start < 1
157 0 0 unless $frame->{'line'}
0 0 unless $frame->{'line'}
160 0 0 if $start < 1
0 0 if $start < 1
161 0 0 if (scalar @args == 2)
0 0 if (scalar @args == 2)
168 0 0 unless $second
0 0 unless $second
174 0 0 unless defined $start
0 0 unless defined $start
175 0 0 if $gobble_count > 0
0 0 if $gobble_count > 0
178 0 0 if (scalar @args <= 1) { }
0 0 elsif (scalar @args == 2 or scalar @args == 3 and $fn) { }
0 0 elsif (not $fn) { }
0 0 if (scalar @args <= 1) { }
0 0 elsif (scalar @args == 2 or scalar @args == 3 and $fn) { }
0 0 elsif (not $fn) { }
179 0 0 if not $start and $fn
0 0 if not $start and $fn
181 0 0 if $start < 1
0 0 if $start < 1
188 0 0 unless $end
0 0 unless $end
189 0 0 if ($fn)
0 0 if ($fn)
190 0 0 if ($start)
0 0 if ($start)
192 0 0 if (scalar @args == 3 and $fn)
0 0 if (scalar @args == 3 and $fn)
198 0 0 unless $end
0 0 unless $end
217 0 0 if $start < 1
0 0 if $start < 1
218 0 0 unless $end
0 0 unless $end
220 0 0 unless &is_cached($filename)
0 0 unless &is_cached($filename)
231 0 0 substr($args->[0], -1, 1) eq '>' ? :
0 0 substr($args->[0], -1, 1) eq '>' ? :
236 0 0 unless $filename
0 0 unless $filename
241 0 0 unless (defined $max_line)
0 0 unless (defined $max_line)
246 0 0 if ($start > $max_line)
0 0 if ($start > $max_line)
253 0 0 if ($end > $max_line)
0 0 if ($end > $max_line)
271 0 0 if &filename_is_eval($frame_filename)
0 0 if &filename_is_eval($frame_filename)
278 0 0 unless (defined $line)
0 0 unless (defined $line)
279 0 0 if ($lineno > $max_line) { }
0 0 if ($lineno > $max_line) { }
288 0 0 if length $s < 4
0 0 if length $s < 4
291 0 0 if (exists $DB::dbline{$lineno} and my $brkpts = $DB::dbline{$lineno}) { }
0 0 if (exists $DB::dbline{$lineno} and my $brkpts = $DB::dbline{$lineno}) { }
295 0 0 if (defined $bp)
0 0 if (defined $bp)
302 0 0 unless $found
0 0 unless $found
309 0 0 if ($proc->{'frame'} and $lineno == $proc->line and $frame_filename eq $filename) { }
0 0 if ($proc->{'frame'} and $lineno == $proc->line and $frame_filename eq $filename) { }