Condition Coverage

blib/lib/Starlet/Server.pm
Criterion Covered Total %
condition 44 79 55.7


and 3 conditions

line !l l&&!r l&&r condition
56 114 0 0 $args{'max_workers'} and $args{'max_workers'} > 1
103 0 131 0 $^O eq 'linux' and $listen->{'_is_tcp'}
178 104 0 0 $may_keepalive and $max_reqs_per_child
104 0 0 $may_keepalive and $max_reqs_per_child and $proc_req_count >= $max_reqs_per_child
395 1 0 0 $$use_keepalive_r and lc $v ne 'keep-alive'
411 1 10 81 defined $protocol and $protocol eq 'HTTP/1.1'
423 0 0 0 not Plack::Util::status_with_no_entity_body($status_code) and defined(my $cl = Plack::Util::content_length($body))
440 2 5 85 defined $body and ref $body eq 'ARRAY'
7 1 84 defined $body and ref $body eq 'ARRAY' and @$body == 1
6 2 82 defined $body and ref $body eq 'ARRAY' and @$body == 1 and length $body->[0] < 8192
480 4 2 2 $use_chunked and not $completed
514 11 0 0 not defined $ret and $! == 4 || $! == 11 || $! == 11

or 2 conditions

line l !l condition
51 9 105 $args{'listens'} || []
74 40 $args{'host'} || 0
6 1 $args{'port'} || $args{'socket'} || 8080
0 114 $args{'timeout'} || 300
0 114 $args{'keepalive_timeout'} || 2
0 114 $args{'max_keepalive_reqs'} || 1
1 113 $args{'server_ready'} || sub { }
0 113 $args{'max_reqs_per_child'} || $args{'max_requests'} || 100
0 114 $args{'spawn_interval'} || 0
170 104 0 $listen->{'port'} || 0
85 19 $listen->{'host'} || 0

or 3 conditions

line l !l&&r !l&&!r condition
51 0 114 0 $args{'server_software'} || $class
110 0 3 0 $self->{'lock_path'} ||= do { my($fh, $lock_path) = tempfile('UNLINK', 1); close $fh; $lock_path }
136 0 272 0 not defined $max_reqs_per_child or $proc_req_count < $max_reqs_per_child
412 4 0 77 defined $send_headers{'content-length'} or defined $send_headers{'transfer-encoding'}
423 0 0 0 defined $send_headers{'content-length'} or defined $send_headers{'transfer-encoding'}
502 110 0 107 $is_write or delete $self->{'_is_deferred_accept'}
514 0 0 0 $! == 4 || $! == 11 || $! == 11