Branch Coverage

blib/lib/File/Rotate/Simple.pm
Criterion Covered Total %
branch 30 40 75.0


line true false branch
100 5 5 unless (XXX)
101 0 5 @_ == 1 ? :
103 0 5 if (my $files = delete $args{'files'})
114 1 9 $self->age ? :
124 0 21 unless my $file = $files[$index]
129 1 20 unless (defined $rotated)
134 0 20 if ($max and $index >= $max)
139 1 19 if ($age and $current->stat->mtime < $age)
144 0 19 if $rotated->exists
150 0 10 if $self->touch
164 3 7 if ($self->file->exists) { }
173 0 7 unless $self->if_missing
182 0 19 if $rotated eq $file
184 18 1 if ($file->exists)
185 17 1 !$max || $num <= $max ? :
202 20 1 if (my $rotated = $file->{'rotated'}) { }
216 0 10 if (my $duplicate = &first(sub { $rotated{$_} > 1; } , keys %rotated))
220 0 10 if $g->has_a_cycle
241 4 132 $format =~ /\%/u ? :
244 4 132 if (defined $replace) { }