| line |
true |
false |
branch |
|
17
|
8 |
0 |
ref $_[0] ? : |
|
19
|
0 |
8 |
unless defined $args->{'key'} |
|
20
|
0 |
8 |
unless defined $args->{'number'} |
|
21
|
0 |
8 |
unless ref $args->{'semaphore'} eq 'IPC::Semaphore' |
|
23
|
6 |
2 |
unless (defined $args->{'cleanup_object'}) |
|
28
|
0 |
8 |
unless (defined $self->value) |
|
38
|
1 |
1 |
if ($self->_lock(IPC_NOWAIT())) { } |
|
56
|
0 |
1 |
unless ($lock) |
|
73
|
1 |
0 |
unless ($lock) |
|
79
|
2 |
2 |
(shift())->_lock(IPC_NOWAIT()) ? : |
|
80
|
1 |
0 |
(shift())->_lock ? : |
|
81
|
5 |
0 |
(shift())->_add_value(IPC_NOWAIT()) ? : |
|
102
|
5 |
5 |
if ($self->semaphore->op($self->number, -1, $flags)) |
|
112
|
5 |
0 |
if ($self->semaphore->op($self->number, 1, $flags)) |
|
122
|
2 |
6 |
unless $self->{'cleanup_object'} |
|
123
|
1 |
5 |
if (defined $self->{'_locks'}) |
|
124
|
0 |
1 |
if ($self->{'_locks'} > 0) |
|
130
|
0 |
1 |
if ($self->{'_locks'} < 0) |