line |
true |
false |
branch |
28
|
170 |
1 |
if ($opts{'impl'}) |
30
|
0 |
170 |
if ($pkg =~ /[^\w:]/) |
33
|
170 |
0 |
if (eval "require Forks::Queue::$pkg; 1") { } |
|
0 |
0 |
elsif (eval "require $pkg; 1") { } |
51
|
0 |
0 |
if ($args[$i] eq $key) |
69
|
84 |
77 |
if @_ |
70
|
133 |
28 |
if ($self->{'style'} eq 'fifo') { } |
71
|
70 |
63 |
@_ ? : |
73
|
14 |
14 |
@_ ? : |
74
|
14 |
14 |
@_ ? : |
87
|
18 |
0 |
@_ ? : |
97
|
6 |
6 |
@_ ? : |
107
|
0 |
0 |
@_ ? : |
117
|
0 |
0 |
@_ ? : |
122
|
38981 |
33 |
if $self->{'_expire'} |
127
|
15 |
3 |
if @_ |
128
|
0 |
3 |
if ($self->{'style'} eq 'fifo') { } |
129
|
0 |
0 |
@_ ? : |
131
|
0 |
3 |
@_ ? : |
138
|
75 |
11 |
if @_ > 1 |
139
|
8 |
69 |
if ($self->{'style'} eq 'lifo') { } |
149
|
0 |
135 |
$s->{'end'} ? : |
|
132 |
135 |
$s->{'avail'} ? : |
159
|
0 |
0 |
if (@_) |
161
|
0 |
0 |
if (@_) |
170
|
36 |
319 |
if not defined $value && &looks_like_number($value) or not $float_ok and $value != int $value or defined $ge and $value < $ge |
196
|
0 |
198 |
if ($^O ne 'linux') |
200
|
48 |
150 |
if ($pid == 0) |
214
|
86 |
50 |
if ($Forks::Queue::Util::PID != $$) |
225
|
121 |
0 |
if (defined ${^GLOBAL_PHASE}) { } |
226
|
0 |
13202 |
if %{^GLOBAL_PHASE} eq 'DESTRUCT' |