| line |
true |
false |
branch |
|
129
|
0 |
2 |
if (@_ % 2) { } |
|
137
|
0 |
2 |
unless $args{'lock'} |
|
142
|
1 |
1 |
unless defined $args{'retries'} |
|
143
|
0 |
2 |
unless defined $args{'retrydelay'} |
|
146
|
2 |
0 |
if ($$self{'mylock'}) { } |
|
148
|
0 |
2 |
if ($$self{'lock'} eq $$self{'mylock'}) { } |
|
|
0 |
2 |
elsif ($_mylocks{$$self{'mylock'}}) { } |
|
|
0 |
2 |
elsif (-f $$self{'mylock'}) { } |
|
159
|
0 |
0 |
unless ($_mylocks{$mylock} or -f $mylock) |
|
164
|
0 |
0 |
unless $$self{'mylock'} |
|
176
|
2 |
0 |
if (open my $fh, '>', $$self{'mylock'}) { } |
|
181
|
1 |
3 |
unless ($self->checklock) |
|
182
|
1 |
0 |
if (link $$self{'mylock'}, $$self{'lock'}) |
|
188
|
2 |
1 |
if ($$self{'retries'} and $try != $$self{'retries'}) |
|
190
|
2 |
0 |
unless $try == $$self{'retries'} |
|
204
|
3 |
1 |
if (open my $fh, $$self{'lock'}) { } |
|
210
|
3 |
0 |
if (open my $ps, 'ps -e |') { } |
|
213
|
3 |
27 |
if (/^\s*$pid\s*/) |
|
221
|
0 |
3 |
if ($stale) { } |
|
222
|
0 |
0 |
unless unlink $mylock |
|
223
|
0 |
0 |
unless unlink $$self{'lock'} |
|
243
|
1 |
1 |
if (-f $$self{'mylock'}) |
|
244
|
0 |
1 |
unless unlink $$self{'mylock'} |
|
247
|
1 |
1 |
if ($$self{'_have_lock'}) |
|
248
|
0 |
1 |
unless unlink $$self{'lock'} |
|
263
|
14 |
0 |
if $$self{'debug'} |