Branch Coverage

blib/lib/Test/HTTP/MockServer.pm

Criterion	Covered	Total	%
branch	12	20	60.0

line	true	false	branch
19	7	7	unless ($self->{'socket'})
20	0	7	unless my $proto = getprotobyname 'tcp'
22	0	7	unless socket my $s, 2, 1, $proto
30	0	7	unless bind $s, $addr
32	0	7	unless listen $s, 10
136	0	14	unless my $rp = shift()
139	0	14	if $self->{'mock_server_pid'}
142	9	5	if ($self->{'mock_server_pid'}) { }
156	0	9	unless $self->{'mock_server_pid'}
166	0	7	if $self->{'mock_server_pid'}