Branch Coverage

blib/lib/XAS/Apps/Rotate.pm
Criterion Covered Total %
branch 0 78 0.0


line true false branch
95 0 0 if $compressor =~ /gzip/i
96 0 0 if $compressor =~ /zip/i
97 0 0 if $compressor =~ /bzip2/i
98 0 0 if $compressor =~ /compress/i
145 0 0 unless $age_diff
150 0 0 if (not $age_diff =~ /(\d+)\s+([smhdw])/i) { }
180 0 0 unless $size_spec
185 0 0 if (not $size_spec =~ /(\d+)\s+([bkmgt])/i) { }
217 0 0 if ($self->is_true($compress))
223 0 0 if ($compressor =~ /zip/i) { }
0 0 elsif ($compressor =~ /gzip/i) { }
0 0 elsif ($compressor =~ /bzip2/i) { }
0 0 elsif ($compressor =~ /compress/i) { }
246 0 0 if $?
268 0 0 if ($self->is_true($create_new))
270 0 0 if ($lines_or_files =~ /files/i) { }
280 0 0 unless $filename->exists
301 0 0 if ($^O eq 'MSWin32') { }
318 0 0 if $?
348 0 0 if $self->is_true($compress)
351 0 0 if ($first)
361 0 0 if $self->is_true($compress)
364 0 0 if ($prvname->exists) { }
366 0 0 if ($method =~ /copy/i) { }
386 0 0 if ($method =~ /copy/i) { }
413 0 0 if ($prolog and scalar @wanted_files > 0)
432 0 0 if ($epilog and $ran_prolog)
458 0 0 if ($from->name =~ /[\*\?]/) { }
473 0 0 unless $file->exists
480 0 0 if ($self->is_oldder($modify_age, $mtime)) { }
0 0 elsif ($self->is_oldder($create_age, $ctime)) { }
0 0 elsif ($self->is_bigger($file_size, $size)) { }
482 0 0 if ($size != 0 and $self->is_false($ifempty))
491 0 0 if ($size != 0 and $self->is_false($ifempty))
500 0 0 if ($size != 0 and $self->is_false($ifempty))
513 0 0 if ($#wanted_files < 0)
515 0 0 if $self->is_true($missingok)
550 0 0 if $section =~ /settings/i
599 0 0 unless $self->{'cfg'} = 'Config::IniFiles'->new(-'file', $self->cfgfile->path, -'default', 'settings')