| line |
true |
false |
branch |
|
114
|
0 |
23 |
if $Debug |
|
169
|
0 |
0 |
unless $long |
|
175
|
0 |
0 |
if (substr($$p[0], $path, 0) == 0 and -f $$p[0] . '/' . $id and $id =~ /^\d+\.\d+\.$$self{'id'}\.\d+$/) |
|
192
|
0 |
21 |
if (grep {not defined $$_[1];} @{$self{'paths'};}) |
|
207
|
10 |
11 |
if $$self{'lockdir'} |
|
221
|
0 |
64 |
if $Debug |
|
226
|
47 |
17 |
unless (@{$$self{'_files'};} or $$self{'_current'}[0]) |
|
228
|
0 |
47 |
if $Debug |
|
236
|
96 |
77 |
if $f eq '.' or $f eq '..' |
|
237
|
31 |
46 |
unless -f $$p[0] . '/' . $f |
|
240
|
0 |
0 |
unless ($$self{'promiscuous'} or $$self{'filter'}($$t[1])) |
|
267
|
76 |
0 |
$$self{'_current'}[1] ? : |
|
270
|
46 |
35 |
if ($qid eq $$t[0]) |
|
281
|
29 |
102 |
if ($n eq $qid) |
|
297
|
0 |
10 |
unless $$self{'lockdir'} |
|
306
|
20 |
1 |
if $f eq '.' or $f eq '..' |
|
308
|
0 |
1 |
if ((stat $name)[9] + $$self{'lockmax'} < time) |
|
328
|
0 |
47 |
if $Debug |
|
330
|
32 |
15 |
unless $$self{'lockdir'} |
|
334
|
0 |
15 |
unless $$self{'lockfile'} |
|
339
|
0 |
15 |
if $Debug |
|
341
|
3 |
12 |
if (-f $$self{'lockfile'}) |
|
343
|
0 |
3 |
if ((stat _)[9] + $$self{'lockmax'} < time) { } |
|
345
|
0 |
0 |
if $Debug |
|
350
|
0 |
3 |
if $Debug |
|
356
|
0 |
12 |
unless $$self{'lockfh'}->open($$self{'lockfile'}, 66) |
|
359
|
0 |
12 |
unless (flock $$self{'lockfh'}, 6) |
|
369
|
0 |
12 |
if $Debug |
|
377
|
0 |
12 |
if $Debug |
|
379
|
0 |
12 |
unless ($rkey eq $$self{'_key'}) |
|
388
|
0 |
12 |
if $Debug |
|
416
|
0 |
28 |
if $Debug |
|
428
|
0 |
28 |
unless $fh->open($pname, 'w') |
|
455
|
22 |
24 |
unless @{$$self{'_files'};} |
|
459
|
0 |
46 |
if $Debug |
|
467
|
21 |
25 |
unless ($$self{'_current'}[0]) |
|
509
|
0 |
20 |
if $Debug |
|
511
|
1 |
19 |
unless $qid |
|
521
|
3 |
0 |
unless ($qid = $self->next) |
|
523
|
3 |
0 |
if (@{$$self{'_files'};}) { } |
|
525
|
0 |
3 |
if $Debug |
|
530
|
0 |
0 |
if $Debug |
|
559
|
0 |
27 |
if $Debug |
|
561
|
0 |
27 |
if $qid eq 0 |
|
565
|
1 |
26 |
unless $name |
|
575
|
2 |
5 |
if ($$self{'_files'}[$i][0] eq $qid) |
|
600
|
0 |
30 |
if $Debug |
|
620
|
0 |
33 |
if $Debug |
|
622
|
19 |
14 |
unless $$self{'lockdir'} |
|
623
|
5 |
9 |
unless $$self{'lockfh'} |