| line |
true |
false |
branch |
|
26
|
0 |
1 |
if $args->{'dotlock_file'} |
|
34
|
0 |
1 |
unless @_ and $_[0] |
|
37
|
0 |
1 |
unless (defined $self->filename) |
|
40
|
0 |
0 |
$org eq 'DIRECTORY' ? : |
|
|
0 |
0 |
$org eq 'FILE' ? : |
|
53
|
0 |
1 |
if -e $lockfile |
|
55
|
0 |
1 |
$^O eq 'MSWin32' ? : |
|
60
|
1 |
0 |
if ($lock) |
|
65
|
0 |
0 |
if ($! != 17) |
|
74
|
0 |
1 |
unless $self->hasLock |
|
79
|
0 |
1 |
unless unlink $lock |
|
91
|
1 |
1 |
if ($self->hasLock) |
|
97
|
0 |
1 |
$timeout eq 'NOTIMEOUT' ? : |
|
102
|
1 |
0 |
if $self->_try_lock($lockfile) |
|
105
|
0 |
0 |
if (-e $lockfile and -A $lockfile > $expire) |
|
107
|
0 |
0 |
if (unlink $lockfile) { } |
|
118
|
0 |
0 |
unless --$end |