Branch Coverage

blib/lib/File/Versions.pm
Criterion Covered Total %
branch 16 28 57.1


line true false branch
37 1 0 if ($backup_file =~ /^$file.~(\d+)~$/)
43 1 2 if (@version_numbers)
58 1 2 if ($max_version_number)
65 0 3 if (-f $next_file)
77 2 0 unless ($suffix)
102 0 0 if ($max_version_number) { }
117 1 5 if (not -f $file) { }
123 0 5 if (not $version_control or $version_control eq 'existing' or $version_control eq 'nil')
128 3 2 if ($version_control eq 'numbered' or $version_control eq 't') { }
2 0 elsif ($version_control eq 'simple' or $version_control eq 'never') { }
146 0 3 unless (-f $file)
150 0 3 if (-f $backup_file)
151 0 0 unless unlink $backup_file
153 0 3 unless rename $file, $backup_file