Branch Coverage

blib/lib/Test/HTTP/Server.pm
Criterion Covered Total %
branch 20 44 45.4


line true false branch
18 0 4 if $frompid < 1024
28 4 0 if $socket
37 0 4 unless my($port, $socket) = _open_socket()
41 0 4 unless defined $pid
43 3 1 if ($pid) { }
73 1 0 if (@_)
94 0 3 unless $cnt
97 3 12 unless $cnt
114 0 1 unless my $client = $socket->accept
117 0 1 unless defined $pid
118 0 1 if ($pid) { }
134 0 5 if ($@)
188 0 1 if ($$self{'request'}[0] =~ /^(?:POST|PUT)/) { }
213 1 0 unless length $_
230 0 0 unless defined $len
248 0 2 if (ref $value) { }
285 1 0 unless defined $func and length $func
291 0 1 if ($@) { }
1 0 elsif (defined $body) { }
325 0 0 if (not $type or $type eq 'head')
328 0 0 if (!$type || $type eq 'body' and defined $$self{'body'})
343 0 0 if $time =~ /^[+-]/