| line |
true |
false |
branch |
|
185
|
0 |
0 |
if $o->{'description'} |
|
209
|
0 |
0 |
unless (-f $file) |
|
213
|
0 |
0 |
if ($@) |
|
216
|
0 |
0 |
if (not $copts or ref $copts ne 'HASH') |
|
242
|
0 |
0 |
$attr ? : |
|
247
|
0 |
0 |
if ($args) |
|
251
|
0 |
0 |
unless (&Getopt::Long::GetOptions($options, @optList)) |
|
256
|
0 |
0 |
if ($options->{'help'}) |
|
259
|
0 |
0 |
if ($options->{'version'}) |
|
266
|
0 |
0 |
if ($file) |
|
273
|
0 |
0 |
if ($self->{'childs'}) { } |
|
|
0 |
0 |
elsif (not defined $self->{'mode'}) { } |
|
277
|
0 |
0 |
if (eval {
do {
require threads
}
}) { } |
|
282
|
0 |
0 |
if ($^O ne 'MSWin32') |
|
284
|
0 |
0 |
if (defined $pid) |
|
285
|
0 |
0 |
unless ($pid) |
|
290
|
0 |
0 |
if ($fork) { } |
|
299
|
0 |
0 |
if ($self->{'mode'} eq 'ithreads') { } |
|
|
0 |
0 |
elsif ($self->{'mode'} eq 'fork') { } |
|
|
0 |
0 |
elsif ($self->{'mode'} eq 'single') { } |
|
315
|
0 |
0 |
unless exists $self->{'catchint'} |
|
317
|
0 |
0 |
if ($self->{'childs'}) |
|
350
|
0 |
0 |
$self->{'proto'} eq 'unix' ? : |
|
356
|
0 |
0 |
if ($self->{'clients'}) |
|
358
|
0 |
0 |
if ($self->{'proto'} eq 'unix') { } |
|
371
|
0 |
0 |
@addrs ? : |
|
373
|
0 |
0 |
if $name |
|
374
|
0 |
0 |
if $aliases |
|
378
|
0 |
0 |
unless ($client->{'mask'}) |
|
382
|
0 |
0 |
ref $client->{'mask'} ? : |
|
390
|
0 |
0 |
if $self->{'mode'} eq 'threads' |
|
393
|
0 |
0 |
if ($alias =~ /$mask/) |
|
401
|
0 |
0 |
unless ($found and $found->{'accept'}) |
|
444
|
0 |
0 |
if @_ |
|
483
|
0 |
0 |
if ($self->{'mode'} eq 'single') { } |
|
|
0 |
0 |
elsif ($self->{'mode'} eq 'ithreads') { } |
|
492
|
0 |
0 |
unless 'threads'->new($startfunc, $self, $method, @args) |
|
497
|
0 |
0 |
unless defined $pid |
|
498
|
0 |
0 |
if $pid |
|
522
|
0 |
0 |
if (not $self->Accept) { } |
|
530
|
0 |
0 |
if $@ |
|
538
|
0 |
0 |
if $self->{'mode'} eq 'fork' or $self->{'childs'} |
|
548
|
0 |
0 |
if $reaper |
|
550
|
0 |
0 |
unless ($self->{'socket'}) |
|
551
|
0 |
0 |
$self->{'localpath'} ? : |
|
553
|
0 |
0 |
if ($self->{'proto'} eq 'unix') { } |
|
554
|
0 |
0 |
unless my $path = $self->{'localpath'} |
|
557
|
0 |
0 |
if -e $path |
|
562
|
0 |
0 |
unless $self->{'socket'} = 'IO::Socket::UNIX'->new('Local', $path, 'Listen', $self->{'listen'} || 10) |
|
571
|
0 |
0 |
unless $self->{'socket'} = 'IO::Socket::INET'->new('LocalAddr', $self->{'localaddr'}, 'LocalPort', $self->{'localport'}, 'Proto', $self->{'proto'} || 'tcp', 'Listen', $self->{'listen'} || 10, 'Reuse', 1) |
|
578
|
0 |
0 |
if ((my $pidfile = $self->{'pidfile'} || '') ne 'none') |
|
581
|
0 |
0 |
unless open OUT, ">$pidfile" and print OUT "$$\n" and close OUT |
|
587
|
0 |
0 |
if (my $dir = $self->{'chroot'}) |
|
589
|
0 |
0 |
unless (chroot $dir) |
|
593
|
0 |
0 |
if (my $group = $self->{'group'}) |
|
596
|
0 |
0 |
unless ($group =~ /^\d+$/) |
|
597
|
0 |
0 |
if (defined(my $gid = getgrnam $group)) { } |
|
606
|
0 |
0 |
if (my $user = $self->{'user'}) |
|
609
|
0 |
0 |
unless ($user =~ /^\d+$/) |
|
610
|
0 |
0 |
if (defined(my $uid = getpwnam $user)) { } |
|
620
|
0 |
0 |
if ($self->{'childs'}) |
|
626
|
0 |
0 |
unless defined $pid |
|
627
|
0 |
0 |
unless ($pid) |
|
635
|
0 |
0 |
if ($pid) |
|
653
|
0 |
0 |
if (@pids) |
|
655
|
0 |
0 |
if @pids |
|
661
|
0 |
0 |
$self->{'loop-timeout'} ? : |
|
669
|
0 |
0 |
if ($time) |
|
672
|
0 |
0 |
if $t < 0 |
|
676
|
0 |
0 |
if ($nfound < 0) { } |
|
|
0 |
0 |
elsif ($nfound) { } |
|
677
|
0 |
0 |
if (not $child_pid and $! != 4 || !$self->{'catchint'}) |
|
687
|
0 |
0 |
if (not $client) { } |
|
688
|
0 |
0 |
if (not $child_pid and $! != 4 || !$self->{'catchint'}) |
|
697
|
0 |
0 |
if ($self->{'debug'}) |
|
699
|
0 |
0 |
$self->{'proto'} eq 'unix' ? : |
|
712
|
0 |
0 |
if $sth |
|
713
|
0 |
0 |
if ($self->{'mode'} eq 'fork') |
|
718
|
0 |
0 |
if ($time) |
|
720
|
0 |
0 |
if ($t >= $time) |
|
722
|
0 |
0 |
if ($self->{'loop-child'}) { } |
|
737
|
0 |
0 |
if $socket |
|
743
|
0 |
0 |
if $socket |