| line |
true |
false |
branch |
|
129
|
0 |
2 |
if (@_ % 2) { } |
|
137
|
0 |
2 |
unless $args{'lock'} |
|
143
|
1 |
1 |
unless defined $args{'retries'} |
|
144
|
0 |
2 |
unless defined $args{'retrydelay'} |
|
147
|
2 |
0 |
if ($$self{'mylock'}) { } |
|
149
|
0 |
2 |
if ($$self{'lock'} eq $$self{'mylock'}) { } |
|
|
0 |
2 |
elsif ($_mylocks{$$self{'mylock'}}) { } |
|
|
0 |
2 |
elsif (-f $$self{'mylock'}) { } |
|
160
|
0 |
0 |
unless ($_mylocks{$mylock} or -f $mylock) |
|
165
|
0 |
0 |
unless $$self{'mylock'} |
|
177
|
2 |
0 |
if (open my $fh, '>', $$self{'mylock'}) { } |
|
182
|
1 |
3 |
unless ($self->checklock) |
|
183
|
1 |
0 |
if (link $$self{'mylock'}, $$self{'lock'}) |
|
189
|
2 |
1 |
if ($$self{'retries'} and $try != $$self{'retries'}) |
|
191
|
2 |
0 |
unless $try == $$self{'retries'} |
|
205
|
3 |
1 |
if (open my $fh, $$self{'lock'}) { } |
|
211
|
3 |
0 |
if (open my $ps, 'ps -e |') { } |
|
214
|
3 |
27 |
if (/^\s*$pid\s*/) |
|
222
|
0 |
3 |
if ($stale) { } |
|
223
|
0 |
0 |
unless unlink $mylock |
|
224
|
0 |
0 |
unless unlink $$self{'lock'} |
|
244
|
1 |
1 |
if (-f $$self{'mylock'}) |
|
245
|
0 |
1 |
unless unlink $$self{'mylock'} |
|
248
|
1 |
1 |
if ($$self{'_have_lock'}) |
|
249
|
0 |
1 |
unless unlink $$self{'lock'} |
|
264
|
14 |
0 |
if $$self{'debug'} |