| 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')
|