Branch Coverage

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


line true false branch
97 620 3372 if (defined $Lup)
98 0 620 if (&_bigfloatge($ivs->[$i][0], $Lup))
110 0 3990 unless defined $epoch_high
112 618 3372 unless @$intervals
113 44 3328 if (defined $epoch_low)
114 0 44 if &_bigfloatgt($epoch_low, $epoch_high)
119 54 3934 if (defined $epoch_low) { }
122 35 43 if $e eq $upper or $e eq $lower or &_bigfloatlt($e, $upper) and &_bigfloatgt($e, $lower)
125 25 29 if $goodbound > 1
127 3742 192 if (&_bigfloatle($epoch_high, $upper)) { }
192 0 elsif ($is_sorted) { }
128 1072 2670 if (&_bigfloatge($epoch_high, $lower))
151 79 8 if (@$intervals) { }
154 78 45 if (&_bigfloatlt($oiv->[0], $iv->[1]))
158 33 12 if (&_bigfloatgt($oiv->[1], $iv->[0]))
168 34 33 unless (defined $splicepos)
169 34 0 if (&_bigfloatlt($oiv->[0], $intervals->[-1][1])) { }
198 0 82 unless ($reg)
203 0 1482 if ($logfile)
205 0 0 unless open my $fh, '>>', $logfile
206 0 0 $i > 0 ? :
0 0 $i < $#$re ? :
222 0 1482 if ($logfile)
224 0 0 unless open my $fh, '>>', $logfile
236 0 1482 if $i > $#$re
239 4 1478 if $self->covered($epoch)
240 1457 21 if (@$intervals) { }
244 1415 185 if ($i > 0 and &_bigfloatge($$re[$i - 1]{'epoch'}, $ivlo) and &_bigfloatle($$re[$i - 1]{'epoch'}, $ivhi) and &_bigfloatge($iv->[1], $epoch))
254 42 1437 if ($i < $#$re and &_bigfloatle($$re[$i + 1]{'epoch'}, $ivhi) and &_bigfloatge($$re[$i + 1]{'epoch'}, $ivlo) and &_bigfloatle($iv->[0], $epoch))
263 21 1629 if $registered >= 2
265 21 1436 if ($registered == 2) { }
1415 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 162 if (&_bigfloatle($intervals->[$i][1], $$intervals[$i + 1][0]))
320 0 1415 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 4204 if (@_ >= 2)
400 29 4180 unless (defined $x)