Branch Coverage

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


line true false branch
98 5 5 unless (XXX)
99 0 5 @_ == 1 ? :
101 0 5 if (my $files = delete $args{'files'})
112 1 9 $self->age ? :
122 0 21 unless my $file = $files[$index]
127 1 20 unless (defined $rotated)
132 0 20 if ($max and $index >= $max)
137 1 19 if ($age and $current->stat->mtime < $age)
142 0 19 if $rotated->exists
148 0 10 if $self->touch
162 3 7 if ($self->file->exists) { }
171 0 7 unless $self->if_missing
180 0 19 if $rotated eq $file
182 18 1 if ($file->exists)
183 17 1 !$max || $num <= $max ? :
200 20 1 if (my $rotated = $file->{'rotated'}) { }
214 0 10 if (my $duplicate = &first(sub { $rotated{$_} > 1; } , keys %rotated))
218 0 10 if $g->has_a_cycle
239 4 132 $format =~ /\%/ ? :
242 4 132 if (defined $replace) { }