| line |
true |
false |
branch |
| 64 |
0 |
0 |
if ($$self{'options'}{'keepalive'} and $connection and $connection =~ /^keep-alive$/i) { } |
| 118 |
0 |
0 |
if ($_[0] = delete $$self{'inputbuf'}) |
| 132 |
0 |
0 |
if (defined $rc) { } |
| 137 |
0 |
0 |
if $! == 11 |
| 153 |
0 |
0 |
unless *STDOUT->opened |
| 158 |
0 |
0 |
if (my $headers = delete $$self{'_header_buf'}) { } |
| 167 |
0 |
0 |
if (not $ret) |
| 186 |
0 |
0 |
if ($$options{'background'}) |
| 188 |
0 |
0 |
unless defined $child |
| 189 |
0 |
0 |
if $child |
| 196 |
0 |
0 |
$host ? : |
| 197 |
0 |
0 |
if ($addr eq INADDR_ANY()) { } |
| 208 |
0 |
0 |
unless my $daemon = 'IO::Socket::INET'->new('Listen', SOMAXCONN(), 'LocalAddr', inet_ntoa($addr), 'LocalPort', $port, 'Proto', 'tcp', 'ReuseAddr', 1, 'Type', SOCK_STREAM()) |
| 219 |
0 |
0 |
unless $port == 80 |
| 223 |
0 |
0 |
if ($$options{'background'}) |
| 224 |
0 |
0 |
unless open STDIN, '+</dev/null' |
| 225 |
0 |
0 |
unless open STDOUT, '>&STDIN' |
| 226 |
0 |
0 |
unless open STDERR, '>&STDIN' |
| 227 |
0 |
0 |
if (not $^O =~ /MSWin32/) |
| 229 |
0 |
0 |
unless POSIX::setsid() |
| 234 |
0 |
0 |
if (my $pidfile = $$options{'pidfile'}) |
| 235 |
0 |
0 |
if (not open PIDFILE, "> $pidfile") |
| 259 |
0 |
0 |
if (not $self->_read_headers) |
| 268 |
0 |
0 |
unless $method |
| 270 |
0 |
0 |
if (not uc $method eq 'RESTART') { } |
| 273 |
0 |
0 |
if $pid = fork |
| |
0 |
0 |
if ($$options{'fork'}) |
| 277 |
0 |
0 |
if (my $error = delete $$self{'_write_error'}) |
| 283 |
0 |
0 |
if defined $pid |
| 292 |
0 |
0 |
if $ready |
| 294 |
0 |
0 |
if ($ready) |
| 300 |
0 |
0 |
if defined $pid |
| 311 |
0 |
0 |
if ($restart) |
| 360 |
0 |
0 |
if ($protocol >= 1) |
| 371 |
0 |
0 |
if (delete $$self{'_keepalive'}) |
| 375 |
0 |
0 |
if ($sel->can_read(1)) |
| 376 |
0 |
0 |
if (not $self->_read_headers) |
| 408 |
0 |
0 |
if (not $read) |
| 415 |
0 |
0 |
if $$self{'inputbuf'} =~ /(\x0D\x0A?\x0D\x0A?|\x0A\x0D?\x0A\x0D?)/s |
| 425 |
0 |
0 |
if (not $$self{'inputbuf'} =~ s[^(\w+)[ \t]+(\S+)(?:[ \t]+(HTTP/\d+\.\d+))?[^\012]*\012][]) |
| 451 |
0 |
0 |
if (/^([\w\-~]+)\s*:\s*(.*)/) { } |
| |
0 |
0 |
elsif (/^\s+(.*)/) { } |
| 452 |
0 |
0 |
if $key |
| 462 |
0 |
0 |
if $key |
| 471 |
0 |
0 |
if $key eq 'COOKIES' |
| 473 |
0 |
0 |
unless $key =~ /\A(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)\z/ |
| 476 |
0 |
0 |
if (exists $ENV{$key}) { } |
| 489 |
0 |
0 |
$remote_sockaddr ? : |
| 497 |
0 |
0 |
$iaddr ? : |
| |
0 |
0 |
$iaddr ? : |