blib/lib/IPC/Semaphore/Set.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 18 | 24 | 75.0 |
line | true | false | branch |
---|---|---|---|
20 | 0 | 7 | ref $_[0] ? : |
32 | 1 | 6 | if (my $key = $self->{'key'}) { } |
5 | 1 | elsif (my $key_name = $self->{'key_name'}) { } | |
33 | 0 | 1 | if ($key =~ /[^0-9]/) |
48 | 0 | 7 | if (ref $self->semaphore ne 'IPC::Semaphore') |
53 | 5 | 2 | unless ($self->{'_pre_exist'}) |
62 | 0 | 23 | ref $_[0] ? : |
64 | 3 | 20 | $args->{'number'} ? : |
65 | 8 | 15 | unless ($self->{'resources'}{$args->{'number'}}) |
66 | 7 | 1 | $self->key ? : |
81 | 1 | 0 | wantarray ? : |
91 | 4 | 0 | (shift())->semaphore->remove ? : |