| line |
true |
false |
branch |
|
16
|
7 |
0 |
unless defined $type |
|
17
|
0 |
7 |
if $type ne 'Flock' |
|
20
|
0 |
7 |
if (defined $params{'max_procs'} and $params{'max_procs'} != 1) |
|
35
|
0 |
0 |
if $_[0] <= $retries |
|
38
|
0 |
7 |
defined $timeout ? : |
|
|
0 |
7 |
defined $retries ? : |
|
|
0 |
7 |
defined $retries && defined $timeout ? : |
|
|
0 |
7 |
ref $retries ? : |
|
43
|
0 |
28 |
$file_prefix ? : |
|
46
|
28 |
0 |
$type eq 'Flock' ? : |
|
72
|
33 |
0 |
if (not @args) { } |
|
89
|
0 |
7 |
if $self->{'process_name_change'} |
|
96
|
7 |
0 |
if ($locker->[$locker_id]->get_lock) { } |
|
98
|
7 |
0 |
if $self->{'debug'} |
|
101
|
0 |
0 |
if $self->{'debug'} |
|
103
|
0 |
0 |
if $self->{'process_name_change'} |
|
121
|
0 |
44 |
if $self->{'process_name_change'} |
|
124
|
19 |
25 |
if ($$locker[$locker_id - 1]->get_lock) |
|
126
|
19 |
0 |
if $self->{'debug'} |
|
135
|
0 |
25 |
unless ($self->{'retry_sub'}->(++$tries, ++$lock_tries, &IPC::ConcurrencyLimit::WithLatestStandby::time() - $standby_start, &IPC::ConcurrencyLimit::WithLatestStandby::time() - $lock_start)) |
|
137
|
0 |
0 |
if $self->{'process_name_change'} |
|
142
|
21 |
4 |
if ($locker_id == 1) |
|
145
|
19 |
2 |
if ($$locker[$locker_id + 1]->get_lock) { } |
|
152
|
2 |
0 |
if $self->{'debug'} |
|
157
|
0 |
2 |
if $self->{'process_name_change'} |
|
172
|
0 |
5 |
if $locker_id |
|
176
|
5 |
0 |
if $self->{'debug'} |
|
179
|
0 |
5 |
if ($self->{'process_name_change'}) |
|
180
|
0 |
0 |
if ($self->{'process_name_change'} > 1) { } |