Branch Coverage

lib/Devel/Trepan/DB/Breakpoint.pm
Criterion Covered Total %
branch 18 112 16.0


line true false branch
37 0 0 if ('tbrkpt' eq $self->type) { }
0 0 elsif ('brkpt' eq $self->type) { }
0 0 elsif ('action' eq $self->type) { }
65 0 0 unless $fname
68 0 0 if defined $DB::dbline{$i}
78 0 0 unless $fn_name =~ /::/
79 0 0 if substr($fn_name, 0, 2) eq '::'
81 0 0 if (exists $DB::sub{$fn_name})
83 0 0 if ($from)
96 0 1 unless defined $filename
101 0 1 if ($change_dbline)
104 0 0 if exists $main::main::{$filekey}
108 0 1 if ($fn_or_lineno =~ /\D/) { }
111 0 0 unless ($lineno)
112 0 0 if $change_dbline
116 0 0 if ($change_dbline)
119 0 0 if exists $main::main::{$filekey}
124 1 0 if (not defined $DB::dbline[$lineno] or $DB::dbline[$lineno] == 0)
125 0 1 if $change_dbline
140 0 1 unless defined $filename
142 0 1 unless defined $type
143 1 0 unless defined $enabled
148 0 1 if ($change_dbline)
151 0 0 if exists $main::main::{$filekey}
156 0 1 if ($fn_or_lineno =~ /\D/) { }
159 0 0 unless ($lineno)
161 0 0 if $change_dbline
165 0 0 if ($change_dbline)
168 0 0 if exists $main::main::{$filekey}
171 0 1 unless (is_breakable($filename, $lineno) or $force)
174 0 0 if $change_dbline
178 1 0 unless (defined $id)
179 0 1 if ($type eq 'action') { }
196 0 1 if (defined $function) { }
197 0 0 unless exists $DB::fn_brkpt{$fn_or_lineno}
200 1 0 unless exists $DB::dbline{$lineno}
204 0 1 if $change_dbline
229 0 1 unless exists $main::main::{$file_key}
231 0 1 if (defined $DB::dbline{$i})
237 0 0 unless defined $DB::brkpt
238 0 0 if ($DB::brkpt eq $bp)
244 0 0 if $count == 0
251 0 0 if (@_) { }
254 0 0 if $i =~ /\D/
255 0 0 unless $i
256 0 0 if (defined $DB::dbline{$i})
260 0 0 if ($brkpt->action ne 'brkpt')
266 0 0 if $j == 0
271 0 0 if (defined $DB::dbline{$i})
288 0 0 if (@_) { }
291 0 0 if $i =~ /\D/
292 0 0 unless $i
293 0 0 if (defined $DB::dbline{$i})
297 0 0 if ($brkpt->action ne 'action')
303 0 0 if $j == 0
308 0 0 if (defined $DB::dbline{$i})