| line |
true |
false |
branch |
|
15
|
8 |
0 |
unless defined $type |
|
21
|
0 |
16 |
unless (eval "require $lock_class; 1;") |
|
44
|
8 |
0 |
defined $params{'retries'} ? : |
|
|
8 |
0 |
defined $params{'interval'} ? : |
|
54
|
6 |
4 |
if (ref $self->{'retries'} ne 'CODE') |
|
60
|
4 |
6 |
if defined $id |
|
64
|
0 |
6 |
unless defined $st_id |
|
68
|
0 |
6 |
if ($self->{'process_name_change'}) |
|
77
|
3 |
330 |
if (defined $id) |
|
82
|
3 |
327 |
unless $self->{'retries'}->(++$tries) |
|
83
|
297 |
30 |
if $interval |
|
87
|
0 |
6 |
unless (eval {
do {
my $tries = 0;
while (1) {
$id = $main_lock->get_lock;
if (defined $id) {
$st_lock->release_lock;
last;
} ;
last unless $self->{'retries'}->(++$tries);
&IPC::ConcurrencyLimit::WithStandby::sleep($interval) if $interval;
} ;
1
}
}) |
|
89
|
0 |
0 |
if defined $old_proc_name |
|
94
|
0 |
6 |
if defined $old_proc_name |