| line |
true |
false |
branch |
|
54
|
4 |
5 |
unless defined $prop->{$_} and $prop->{$_} =~ /^\d+$/ |
|
66
|
0 |
3 |
if ($prop->{'multi_port'} and $prop->{'serialize'} and $prop->{'serialize'} eq "none") |
|
70
|
3 |
0 |
unless ($prop->{'serialize'} and $prop->{'serialize'} =~ /^(flock|semaphore|pipe|none)$/i) |
|
72
|
0 |
3 |
$^O eq 'MSWin32' ? : |
|
76
|
3 |
0 |
if ($prop->{'serialize'} eq 'flock') { } |
|
|
0 |
0 |
elsif ($prop->{'serialize'} eq 'semaphore') { } |
|
|
0 |
0 |
elsif ($prop->{'serialize'} eq 'pipe') { } |
|
|
0 |
0 |
elsif ($prop->{'serialize'} eq 'none') { } |
|
78
|
0 |
3 |
if (defined $prop->{'lock_file'}) { } |
|
84
|
0 |
3 |
unless close $fh |
|
92
|
0 |
0 |
unless my $s = "IPC::Semaphore"->new(IPC::SysV::IPC_PRIVATE(), 1, IPC::SysV::S_IRWXU() | IPC::SysV::IPC_CREAT()) |
|
94
|
0 |
0 |
unless $s->setall(1) |
|
118
|
0 |
2 |
if ($ENV{'HUP_CHILDREN'}) |
|
134
|
0 |
2 |
if $n <= 0 |
|
145
|
0 |
3 |
unless defined $pid |
|
147
|
2 |
1 |
if ($pid) { } |
|
169
|
0 |
0 |
unless ($prop->{'connected'}) |
|
176
|
1 |
0 |
$prop->{'serialize'} eq 'flock' ? : |
|
177
|
1 |
0 |
if ($needs_lock) |
|
178
|
0 |
1 |
unless open $prop->{'lock_fh'}, ">", $prop->{'lock_file'} |
|
191
|
0 |
1 |
if $self->done |
|
196
|
0 |
0 |
if $needs_lock and $prop->{'lock_fh'} |
|
214
|
2 |
0 |
if ($prop->{'serialize'} eq 'flock') { } |
|
|
0 |
0 |
elsif ($prop->{'serialize'} eq 'semaphore') { } |
|
|
0 |
0 |
elsif ($prop->{'serialize'} eq 'pipe') { } |
|
216
|
0 |
0 |
if $! == 4 |
|
223
|
0 |
0 |
unless $prop->{'sem'}->op(0, -1, IPC::SysV::SEM_UNDO()) |
|
225
|
0 |
0 |
unless $prop->{'sem'}->op(0, 1, IPC::SysV::SEM_UNDO()) |
|
242
|
0 |
1 |
if @_ |
|
243
|
0 |
1 |
if $prop->{'done'} |
|
244
|
0 |
1 |
if $prop->{'requests'} >= $prop->{'max_requests'} |
|
245
|
0 |
1 |
if $prop->{'SigHUPed'} |
|
246
|
0 |
1 |
if (not kill(0, $prop->{'ppid'})) |
|
267
|
0 |
0 |
unless $chld > 0 |
|
276
|
0 |
0 |
if (defined(my $pid = each %{$$prop{"children"};})) |
|
277
|
0 |
0 |
if not kill("HUP", $pid) |
|
284
|
0 |
1 |
if ($ENV{'HUP_CHILDREN'}) |
|
286
|
0 |
0 |
unless $chld > 0 |
|
294
|
0 |
0 |
if (check_sigs()) |
|
295
|
0 |
0 |
if $prop->{'_HUP'} |
|
302
|
0 |
0 |
if ($time - $prop->{'last_checked_for_dead'} > $prop->{'check_for_dead'}) |
|
305
|
0 |
0 |
unless kill 0, $_ |
|
313
|
0 |
0 |
if ($_->{'status'} eq 'dequeue') { } |
|
320
|
0 |
0 |
if ($prop->{'max_servers'} > $total_n) |
|
325
|
0 |
0 |
if (defined $prop->{'check_for_dequeue'}) |
|
326
|
0 |
0 |
if ($time - $prop->{'last_checked_for_dequeue'} > $prop->{'check_for_dequeue'}) |
|
329
|
0 |
0 |
if (defined $prop->{'max_dequeue'} and $total_d < $prop->{'max_dequeue'}) |