| line |
true |
false |
branch |
|
32
|
0 |
185 |
if (defined $ENV{'SERVER_STARTER_PORT'}) |
|
34
|
0 |
0 |
if ($hostport =~ /(.*):(\d+)/) { } |
|
40
|
0 |
0 |
unless $listen_sock = 'IO::Socket::INET'->new('Proto', 'tcp') |
|
43
|
0 |
0 |
unless $listen_sock->fdopen($fd, 'w') |
|
50
|
5 |
365 |
if defined $args{$_} |
|
53
|
2 |
183 |
if ($args{'child_exit'}) |
|
54
|
2 |
0 |
unless ref $args{'child_exit'} |
|
55
|
0 |
2 |
if ref $args{'child_exit'} ne 'CODE' |
|
78
|
0 |
185 |
defined $args{'min_reqs_per_child'} ? : |
|
|
0 |
185 |
defined $args{'err_respawn_interval'} ? : |
|
90
|
0 |
185 |
unless $self->{'listen_sock'} ||= 'IO::Socket::INET'->new('Listen', 128, 'LocalPort', $self->{'port'}, 'LocalAddr', $self->{'host'}, 'Proto', 'tcp', 'ReuseAddr', 1) |
|
98
|
185 |
0 |
if ($^O eq 'linux' and $self->{'_listen_sock_is_tcp'}) |
|
115
|
185 |
0 |
if (defined $self->{'spawn_interval'}) |
|
119
|
0 |
185 |
if (defined $self->{'err_respawn_interval'}) |
|
127
|
18 |
0 |
unless defined $ENV{'SERVER_STARTER_PORT'} |
|
149
|
142 |
7370 |
if ($self->{'term_received'}) |
|
153
|
146 |
7223 |
if (my($conn, $buf, $env) = accept_psgi(fileno $self->{'listen_sock'}, $self->{'timeout'}, $self->{'_listen_sock_is_tcp'}, $self->{'host'} || 0, $self->{'port'} || 0)) |
|
162
|
9 |
137 |
if (my $cl = $env->{'CONTENT_LENGTH'}) { } |
|
|
1 |
136 |
elsif ($chunked) { } |
|
166
|
1 |
28 |
if (length $buf) { } |
|
172
|
0 |
28 |
unless read_timeout($conn, \$chunk, $cl, 0, $self->{'timeout'}) |
|
184
|
0 |
6 |
if (length $buf) { } |
|
191
|
0 |
6 |
unless read_timeout($conn, \$chunk, 16384, 0, $self->{'timeout'}) |
|
198
|
1 |
15 |
if ($chunk_len == 0) { } |
|
|
0 |
15 |
elsif (length $chunk_buffer < $chunk_len + 2) { } |
|
215
|
93 |
52 |
$env->{'SERVER_PROTOCOL'} eq 'HTTP/1.1' ? : |
|
216
|
133 |
12 |
if (ref $res eq 'ARRAY') { } |
|
|
12 |
0 |
elsif (ref $res eq 'CODE') { } |
|
225
|
23 |
122 |
if ($env->{'psgix.harakiri.commit'}) |
|
241
|
0 |
167 |
if (defined $min) { } |
|
254
|
129 |
16 |
if (defined $body and ref $body eq 'ARRAY') |
|
259
|
0 |
16 |
unless write_psgi_response_header($conn, $self->{'timeout'}, $status_code, $headers, [], $use_chunked) |
|
261
|
10 |
6 |
if (defined $body) { } |
|
266
|
0 |
16 |
if $failed |
|
268
|
5 |
11 |
if ($use_chunked) { } |
|
274
|
0 |
16 |
if not defined $ret |
|
277
|
2 |
8 |
if $use_chunked |
|
281
|
7 |
7 |
if ($use_chunked) { } |
|
289
|
3 |
3 |
if $use_chunked |