| blib/lib/Pod/Webserver/Daemon.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 1 | 0 | if (select $rin, undef, undef, $$self{'Timeout'}) |
| 31 | 0 | 1 | unless CORE::accept $got, $sock |
| 50 | 0 | 1 | unless my $proto = getprotobyname 'tcp' |
| 51 | 0 | 1 | unless socket $sock, 2, 1, $proto |
| 52 | 0 | 1 | unless my $host = inet_aton($$self{'LocalHost'}) |
| 55 | 0 | 1 | unless bind $sock, $sin |
| 57 | 0 | 1 | unless listen $sock, 128 |