| line |
true |
false |
branch |
|
86
|
0 |
0 |
if $srv->{'dbdir'} and not defined $srv->{'dburl'} |
|
105
|
0 |
0 |
if (defined $srv->{'pidfile'}) |
|
106
|
0 |
0 |
unless my $pidfh = 'IO::File'->new(">$srv->{'pidfile'}") |
|
132
|
0 |
0 |
if $^S |
|
161
|
0 |
0 |
unless ($srv->{'mimetypes'} //= 'MIME::Types'->new) |
|
166
|
0 |
0 |
unless ($srv->{'daemon'} = 'HTTP::Daemon'->new(%{$$srv{'daemonArgs'};})) |
|
173
|
0 |
0 |
if ($srv->{'daemonMode'} eq 'fork') |
|
187
|
0 |
0 |
unless $srv->{'daemon'} |
|
188
|
0 |
0 |
unless $srv->{'daemon'} |
|
201
|
0 |
0 |
unless (defined($csock = $daemon->accept)) |
|
212
|
0 |
0 |
unless ($hreq) |
|
224
|
0 |
0 |
unless (defined $handler) |
|
233
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif (not defined $rsp) { } |
|
243
|
0 |
0 |
if (not $csock->opened) { } |
|
|
0 |
0 |
elsif ($csock->error) { } |
|
250
|
0 |
0 |
if $srv->{'logResponse'} |
|
255
|
0 |
0 |
unless $pid |
|
269
|
0 |
0 |
if $srv->{'pidfile'} |
|
293
|
0 |
0 |
unless $csock |
|
294
|
0 |
0 |
$csock->opened ? : |
|
295
|
0 |
0 |
if ($csock->opened) |
|
299
|
0 |
0 |
if UNIVERSAL::can($handler, 'finish') |
|
300
|
0 |
0 |
if $srv->{'pid'} and $srv->{'pid'} != $$ |
|
317
|
0 |
0 |
if ($path =~ /Makefile|README|\.svn|(?:\.(?:ttk|rc|pod|txt|pm)$)|~$/) { } |
|
|
0 |
0 |
elsif ($path =~ /\.perl$/) { } |
|
|
0 |
0 |
elsif (-e "$wwwdir/$path.ttk") { } |
|
|
0 |
0 |
elsif (-r "$wwwdir/$path") { } |
|
324
|
0 |
0 |
if -e "$wwwdir/$base.perl" and -r "$wwwdir/$base.ttk" |
|
344
|
0 |
0 |
unless defined $srv->{'mimetypes'} |
|
346
|
0 |
0 |
defined $type ? : |
|
358
|
0 |
0 |
if ($csock->opened) |
|
361
|
0 |
0 |
unless defined $status |
|
363
|
0 |
0 |
unless ($msg =~ /: client closed$/i) |
|
373
|
0 |
0 |
if UNIVERSAL::can($csock, 'close') |