| line |
true |
false |
branch |
|
95
|
0 |
2 |
unless $cfg{-'name'} |
|
104
|
0 |
2 |
if ($cfg{-'mode'} xor $cfg{-'limit'}) |
|
105
|
0 |
0 |
$cfg{-'mode'} ? : |
|
145
|
0 |
11 |
unless $mode =~ /^<|>|>>$/ |
|
153
|
11 |
0 |
if ($mode =~ />/) |
|
162
|
11 |
0 |
if ($mode eq '>') { } |
|
166
|
11 |
0 |
if $ver <= 0 |
|
170
|
0 |
0 |
if ($ver) { } |
|
171
|
0 |
0 |
if ($ver > 0) { } |
|
173
|
0 |
0 |
if $ver < $$info{'min'} |
|
177
|
0 |
0 |
unless defined $ver |
|
179
|
0 |
0 |
if (not exists $$info{$ver} and $mode eq '>>') |
|
187
|
0 |
11 |
unless CORE::open my $fh, $mode, "$fullfn;$ver" |
|
190
|
11 |
0 |
if $purge |
|
193
|
11 |
0 |
if $lck |
|
211
|
0 |
12 |
unless $fn |
|
215
|
0 |
12 |
if ($cfg{-'mode'} xor $cfg{-'limit'}) |
|
216
|
0 |
0 |
$cfg{-'mode'} ? : |
|
221
|
1 |
11 |
unless $cfg{-'mode'} |
|
231
|
10 |
21 |
if ($cfg{-'mode'} eq 'versions') { } |
|
233
|
6 |
4 |
if $$info{'count'} <= $cfg{-'limit'} |
|
235
|
4 |
0 |
if (unlink "$fullfn;$v") { } |
|
245
|
2 |
19 |
if ($$info{$v} - $$info{'d_max'} > $cfg{-'limit'}) |
|
246
|
2 |
0 |
if (unlink "$fullfn;$v") { } |
|
269
|
0 |
11 |
if ($cfg{-'limit'} xor $cfg{-'mode'}) |
|
284
|
2 |
11 |
if ($cfg{-'limit'}) { } |
|
286
|
0 |
2 |
unless $cfg{-'mode'} =~ /^days|versions$/ |
|
287
|
0 |
2 |
unless $cfg{-'limit'} =~ /^\d+$/ |
|
289
|
0 |
2 |
unless CORE::open my $vfh, '>', $vfn |
|
295
|
11 |
0 |
if (-f $vfn) { } |
|
296
|
0 |
11 |
unless CORE::open my $vfh, '<', $vfn |
|
300
|
0 |
11 |
unless $cfg{-'mode'} =~ /^days|versions$/ |
|
302
|
0 |
11 |
unless $cfg{-'limit'} =~ /^\d+$/ |
|
325
|
0 |
26 |
unless $fn |
|
333
|
26 |
70 |
unless $ver =~ /^\d+$/ |
|
344
|
24 |
2 |
$tmp[0] ? : |
|
345
|
24 |
2 |
$tmp[-1] ? : |
|
354
|
9 |
2 |
-e $fn ? : |
|
355
|
0 |
11 |
unless CORE::open my $lck, $mode, $fn |
|
357
|
0 |
11 |
unless (flock $lck, 6) |