| line |
true |
false |
branch |
|
49
|
0 |
2 |
unless my $fh = "IO::File"->new($tmpfile, 65, 384) |
|
60
|
0 |
2 |
unless link $tmpfile, $lockfile |
|
71
|
0 |
2 |
unless unlink $lockfile |
|
86
|
1 |
2 |
if ($self->hasLock) |
|
92
|
0 |
2 |
unless my $tmpfile = $self->_construct_tmpfile |
|
94
|
0 |
2 |
$timeout eq 'NOTIMEOUT' ? : |
|
97
|
0 |
2 |
if (-e $lockfile and -A $lockfile > $expires) |
|
98
|
0 |
0 |
if (unlink $lockfile) { } |
|
105
|
2 |
0 |
if $self->_try_lock($tmpfile, $lockfile) |
|
108
|
0 |
0 |
unless --$end |
|
119
|
0 |
0 |
unless my $tmpfile = $self->_construct_tmpfile |
|
122
|
0 |
0 |
unless my $fh = $self->_try_lock($tmpfile, $lockfile) |
|
135
|
0 |
2 |
unless $self->hasLock |