Branch Coverage

blib/lib/File/Maintenance.pm
Criterion Covered Total %
branch 17 30 56.6


line true false branch
147 0 7 if ($self->test) { }
165 0 4 if ($self->test) { }
168 0 4 unless IO::Compress::Gzip::gzip($file, $file . '.gz')
185 0 4 if ($self->test) { }
188 0 4 unless IO::Compress::Zip::zip($file, $file . '.zip')
205 0 4 if ($self->test) { }
208 0 4 unless IO::Compress::Bzip2::bzip2($file, $file . '.bz2')
228 0 3 if $directory eq $archive_dir
235 7 0 if ($self->recurse) { }
244 0 7 if ($self->test) { }
247 4 3 unless (-d $path)
250 0 7 unless move($file, $path)
273 1 14 unless $self->recurse
281 0 15 unless $self->age
283 15 0 if ($self->age =~ /^(\d+)(s|m|h|d)$/) { }