| line |
true |
false |
branch |
|
60
|
0 |
9 |
if (defined $option{'granularity'}) { } |
|
62
|
0 |
0 |
unless $option{'granularity'} =~ /^\d+$/ |
|
84
|
16 |
0 |
if $self->{'granularity'} |
|
97
|
16 |
2 |
if $fh |
|
99
|
2 |
0 |
if $! == 2 |
|
113
|
16 |
0 |
if (link $tmp, $new) |
|
114
|
0 |
16 |
unless unlink $tmp |
|
117
|
0 |
0 |
unless $! == 17 |
|
183
|
14 |
0 |
unless defined $permissive |
|
186
|
0 |
14 |
unless (link $path, $lock) |
|
187
|
0 |
0 |
if $permissive and $! == 17 || $! == 2 |
|
192
|
0 |
14 |
unless (utime $time, $time, $path) |
|
193
|
0 |
0 |
if ($permissive and $! == 2) |
|
218
|
1 |
0 |
unless defined $permissive |
|
221
|
1 |
0 |
if unlink $lock |
|
222
|
0 |
0 |
if $permissive and $! == 2 |
|
246
|
0 |
14 |
unless unlink $path |
|
247
|
1 |
13 |
unless unlink $lock |
|
261
|
8 |
0 |
if $name =~ /^($Directory::Queue::Simple::_DirectoryRegexp)$/o |
|
283
|
0 |
1 |
unless (@stat) |
|
284
|
0 |
0 |
unless $! == 2 |
|
287
|
0 |
1 |
if substr($name, -4) eq ".tmp" and $stat[9] >= $oldtemp |
|
289
|
0 |
1 |
if substr($name, -4) eq ".lck" and $stat[9] >= $oldlock |
|
292
|
1 |
0 |
if unlink $path |
|
293
|
0 |
0 |
unless $! == 2 |
|
306
|
0 |
1 |
unless defined $option{'maxtemp'} |
|
307
|
1 |
0 |
unless defined $option{'maxlock'} |
|
309
|
0 |
2 |
unless $name =~ /^(maxtemp|maxlock)$/ |
|
312
|
0 |
2 |
unless $option{$name} =~ /^\d+$/ |
|
317
|
1 |
0 |
if $name =~ /^($Directory::Queue::Simple::_DirectoryRegexp)$/o |
|
321
|
1 |
0 |
if $option{'maxtemp'} |
|
322
|
1 |
0 |
if $option{'maxlock'} |
|
323
|
1 |
0 |
if ($oldtemp or $oldlock) |
|
329
|
0 |
1 |
if (@list > 1) |
|
334
|
0 |
0 |
unless &_special_getdir($path) |