Branch Coverage

blib/lib/Test/HTTP/Server.pm
Criterion Covered Total %
branch 27 44 61.3


line true false branch
19 0 11 if $frompid < 1024
29 11 0 if $socket
38 0 11 unless my($port, $socket) = _open_socket()
42 0 11 unless defined $pid
44 3 8 if ($pid) { }
74 1 0 if (@_)
95 0 3 unless $cnt
98 3 9 unless $cnt
115 0 20 unless my $client = $socket->accept
118 0 20 unless defined $pid
119 15 5 if ($pid) { }
135 0 12 if ($@)
189 0 5 if ($self->{'request'}[0] =~ /^(?:POST|PUT)/) { }
214 5 0 unless length $_
231 0 0 unless defined $len
249 1 10 if (ref $value) { }
288 1 4 unless defined $func and length $func
294 0 5 if ($@) { }
5 0 elsif (defined $body) { }
328 1 1 if (not $type or $type eq 'head')
331 0 2 if (!$type || $type eq 'body' and defined $self->{'body'})
346 3 0 if $time =~ /^[+-]/