| line |
true |
false |
branch |
|
16
|
69 |
0 |
unless defined $type |
|
17
|
0 |
69 |
if $type ne 'Flock' |
|
20
|
0 |
69 |
if (defined $params{'max_procs'} and $params{'max_procs'} != 1) |
|
35
|
0 |
0 |
if $_[0] <= $retries |
|
38
|
0 |
69 |
defined $timeout ? : |
|
|
0 |
69 |
defined $retries ? : |
|
|
0 |
69 |
defined $retries && defined $timeout ? : |
|
|
0 |
69 |
ref $retries ? : |
|
43
|
0 |
276 |
$file_prefix ? : |
|
46
|
276 |
0 |
$type eq 'Flock' ? : |
|
72
|
318 |
0 |
if (not @args) { } |
|
89
|
69 |
0 |
if $self->{'process_name_change'} |
|
96
|
68 |
1 |
if ($locker->[$locker_id]->get_lock) { } |
|
100
|
1 |
0 |
if $self->{'debug'} |
|
102
|
1 |
0 |
if $self->{'process_name_change'} |
|
120
|
388 |
0 |
if $self->{'process_name_change'} |
|
123
|
181 |
207 |
if ($$locker[$locker_id - 1]->get_lock) |
|
133
|
0 |
207 |
unless ($self->{'retry_sub'}->(++$tries, ++$lock_tries, &IPC::ConcurrencyLimit::WithLatestStandby::time() - $standby_start, &IPC::ConcurrencyLimit::WithLatestStandby::time() - $lock_start)) |
|
135
|
0 |
0 |
if $self->{'process_name_change'} |
|
140
|
182 |
25 |
if ($locker_id == 1) |
|
143
|
159 |
23 |
if ($$locker[$locker_id + 1]->get_lock) { } |
|
150
|
23 |
0 |
if $self->{'debug'} |
|
155
|
23 |
0 |
if $self->{'process_name_change'} |
|
170
|
0 |
45 |
if $locker_id |
|
174
|
45 |
0 |
if $self->{'debug'} |
|
177
|
45 |
0 |
if ($self->{'process_name_change'}) |
|
178
|
0 |
45 |
if ($self->{'process_name_change'} > 1) { } |