Branch Coverage

blib/lib/File/Rsync/Mirror/Recentfile/Done.pm
Criterion Covered Total %
branch 64 86 74.4


line true false branch
97 575 3565 if (defined $Lup)
98 0 575 if (&_bigfloatge($ivs->[$i][0], $Lup))
110 0 4209 unless defined $epoch_high
112 644 3565 unless @$intervals
113 47 3518 if (defined $epoch_low)
114 0 47 if &_bigfloatgt($epoch_low, $epoch_high)
119 57 4079 if (defined $epoch_low) { }
122 36 46 if $e eq $upper or $e eq $lower or &_bigfloatlt($e, $upper) and &_bigfloatgt($e, $lower)
125 25 32 if $goodbound > 1
127 3886 193 if (&_bigfloatle($epoch_high, $upper)) { }
193 0 elsif ($is_sorted) { }
128 1210 2676 if (&_bigfloatge($epoch_high, $lower))
151 77 8 if (@$intervals) { }
154 78 43 if (&_bigfloatlt($oiv->[0], $iv->[1]))
158 33 10 if (&_bigfloatgt($oiv->[1], $iv->[0]))
168 34 33 unless (defined $splicepos)
169 34 0 if (&_bigfloatlt($oiv->[0], $intervals->[-1][1])) { }
198 0 77 unless ($reg)
203 0 1521 if ($logfile)
205 0 0 unless open my $fh, '>>', $logfile
206 0 0 $i > 0 ? :
0 0 $i < $#$re ? :
222 0 1521 if ($logfile)
224 0 0 unless open my $fh, '>>', $logfile
236 0 1521 if $i > $#$re
239 4 1517 if $self->covered($epoch)
240 1497 20 if (@$intervals) { }
244 1455 186 if ($i > 0 and &_bigfloatge($$re[$i - 1]{'epoch'}, $ivlo) and &_bigfloatle($$re[$i - 1]{'epoch'}, $ivhi) and &_bigfloatge($iv->[1], $epoch))
254 42 1477 if ($i < $#$re and &_bigfloatle($$re[$i + 1]{'epoch'}, $ivhi) and &_bigfloatge($$re[$i + 1]{'epoch'}, $ivlo) and &_bigfloatle($iv->[0], $epoch))
263 21 1670 if $registered >= 2
265 21 1476 if ($registered == 2) { }
1455 21 elsif ($registered == 1) { }
292 5 22 if (&_bigfloatgt($epoch, $intervals->[$i][0]))
297 16 5 unless (defined $splicepos)
298 16 0 if (&_bigfloatlt($epoch, $intervals->[-1][1])) { }
313 0 163 if (&_bigfloatle($intervals->[$i][1], $$intervals[$i + 1][0]))
320 0 1455 if (defined $splicepos) { }
342 33 7 if ($epoch eq $intervals->[$i][0] or $epoch eq $intervals->[$i][1])
346 33 9 if ($epoch eq $$intervals[$i + $j][0] or $epoch eq $$intervals[$i + $j][1]) { }
361 33 0 if (defined $splicepos) { }
363 0 18 if (&_bigfloatgt($k, $$intervals[$splicepos + $splicelen][0]) or &_bigfloatlt($k, $$intervals[$splicepos + $splicelen][1]))
396 5 4414 if (@_ >= 2)
400 28 4391 unless (defined $x)