| blib/lib/Test/HTTP/MockServer/Once.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 22 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 3 | 7 | unless ($self->{'socket'}) |
| 23 | 0 | 3 | unless my $proto = getprotobyname "tcp" |
| 25 | 0 | 3 | unless socket my $s, 2, 1, $proto |
| 27 | 0 | 3 | unless setsockopt $s, 1, 2, 1 |
| 30 | 1 | 2 | if (defined $self->{'port'}) { } |
| 33 | 0 | 1 | unless bind $s, $addr |
| 34 | 0 | 1 | unless listen $s, 10 |
| 43 | 0 | 2 | unless bind $s, $addr |
| 45 | 0 | 2 | unless listen $s, 10 |
| 141 | 0 | 0 | unless my $rp = shift() |
| 149 | 0 | 0 | unless accept my $client, $self->{'socket'} |