line |
true |
false |
branch |
28
|
170 |
1 |
if ($opts{'impl'}) |
30
|
0 |
170 |
if ($pkg =~ /[^\w:]/) |
34
|
170 |
0 |
if ($e1) |
39
|
0 |
0 |
if (eval "require $pkg; 1") { } |
42
|
0 |
0 |
if $err1 |
55
|
0 |
0 |
if ($args[$i] eq $key) |
76
|
84 |
77 |
if @_ |
77
|
133 |
28 |
if ($self->{'style'} eq 'fifo') { } |
78
|
70 |
63 |
@_ ? : |
80
|
14 |
14 |
@_ ? : |
81
|
14 |
14 |
@_ ? : |
94
|
18 |
0 |
@_ ? : |
104
|
6 |
6 |
@_ ? : |
114
|
0 |
0 |
@_ ? : |
124
|
0 |
0 |
@_ ? : |
129
|
35070 |
35 |
if $self->{'_expire'} |
134
|
15 |
3 |
if @_ |
135
|
0 |
3 |
if ($self->{'style'} eq 'fifo') { } |
136
|
0 |
0 |
@_ ? : |
138
|
0 |
3 |
@_ ? : |
145
|
111 |
18 |
if @_ > 1 |
146
|
48 |
72 |
if ($self->{'style'} eq 'lifo') { } |
156
|
0 |
137 |
$s->{'end'} ? : |
|
132 |
137 |
$s->{'avail'} ? : |
166
|
0 |
0 |
if (@_) |
168
|
0 |
0 |
if (@_) |
177
|
36 |
355 |
if not defined $value && &looks_like_number($value) or not $float_ok and $value != int $value or defined $ge and $value < $ge |
204
|
0 |
198 |
if ($^O ne 'linux') |
208
|
48 |
150 |
if ($pid == 0) |
222
|
86 |
50 |
if ($Forks::Queue::Util::PID != $$) |
233
|
122 |
0 |
if (defined ${^GLOBAL_PHASE}) { } |
234
|
0 |
14429 |
if %{^GLOBAL_PHASE} eq 'DESTRUCT' |