| line |
true |
false |
branch |
|
36
|
0 |
0 |
if (/^-?errmode$/i) { } |
|
|
0 |
0 |
elsif (/^-?timeout$/i) { } |
|
|
0 |
0 |
elsif (/^-?path$/i) { } |
|
|
0 |
0 |
elsif (/^-?maxqueue$/i) { } |
|
|
0 |
0 |
elsif (/^-?retrytime$/i) { } |
|
|
0 |
0 |
elsif (/^-?domain$/i) { } |
|
64
|
0 |
0 |
if (-f $locktarget) { } |
|
|
0 |
0 |
elsif (not -d $locktarget) { } |
|
77
|
0 |
0 |
if length $domain |
|
85
|
0 |
0 |
unless (open L, "> $templockfile") |
|
100
|
0 |
0 |
unless (close L) |
|
121
|
0 |
0 |
if (/^$locktargetfname\.lock_(\d)$/) |
|
123
|
0 |
0 |
if ($1 > $highestlock) |
|
132
|
0 |
0 |
if ($maxqueue == 0 and $highestlock == 0) |
|
134
|
0 |
0 |
if (link $templockfile, $lockfile) { } |
|
137
|
0 |
0 |
if unlink $templockfile |
|
141
|
0 |
0 |
if unlink $templockfile |
|
151
|
0 |
0 |
if (link $templockfile, $lockfile . '_' . $order) |
|
164
|
0 |
0 |
if unlink $templockfile |
|
165
|
0 |
0 |
if unlink $lockfile . '_' . $currentplacing |
|
176
|
0 |
0 |
if unlink $lockfile . '_' . $currentplacing |
|
185
|
0 |
0 |
if unlink $templockfile |
|
186
|
0 |
0 |
if unlink $lockfile . '_' . $currentplacing |
|
199
|
0 |
0 |
if unlink $lockfile . '_' . $currentplacing |
|
200
|
0 |
0 |
if unlink $templockfile |
|
207
|
0 |
0 |
if unlink $templockfile |
|
217
|
0 |
0 |
if unlink $_ |
|
227
|
0 |
0 |
if (@_ >= 2) |
|
229
|
0 |
0 |
if ($timeout > 0) |
|
245
|
0 |
0 |
if (@_ >= 2) |
|
246
|
0 |
0 |
if (length $target) |
|
248
|
0 |
0 |
if (-d $target) { } |
|
|
0 |
0 |
elsif (not -f $target) { } |
|
249
|
0 |
0 |
unless ($target =~ m[/$]) |
|
271
|
0 |
0 |
if (@_ >= 2) |
|
272
|
0 |
0 |
if ($args eq 'die' or $args eq 'return') |
|
287
|
0 |
0 |
if (@_ >= 2) |
|
288
|
0 |
0 |
unless ($args < 0) |
|
303
|
0 |
0 |
if (@_ >= 2) |
|
304
|
0 |
0 |
unless ($args < 0) |
|
319
|
0 |
0 |
if (@_ >= 2) |
|
332
|
0 |
0 |
if ($self->errmode eq 'die') { } |
|
|
0 |
0 |
elsif ($self->errmode eq 'return') { } |
|
351
|
0 |
0 |
if (@_ >= 2) |
|
352
|
0 |
0 |
if (length $errmsg) |
|
365
|
0 |
0 |
if (@_ >= 2) |
|
390
|
0 |
0 |
if (@_ >= 2) |