Branch Coverage

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


line true false branch
18 0 5 unless ($vc)
41 1 0 if ($backup_file =~ /^$file.~(\d+)~$/)
47 1 2 if (@version_numbers)
62 1 2 if ($max_version_number)
69 0 3 if (-f $next_file)
81 2 0 unless ($suffix)
106 0 0 if ($max_version_number) { }
121 1 5 if (not -f $file) { }
127 0 5 if (not $version_control or $version_control eq 'existing' or $version_control eq 'nil')
132 3 2 if ($version_control eq 'numbered' or $version_control eq 't') { }
2 0 elsif ($version_control eq 'simple' or $version_control eq 'never') { }
150 0 3 unless (-f $file)
154 0 3 if (-f $backup_file)
155 0 0 unless unlink $backup_file
157 0 3 unless rename $file, $backup_file