| blib/lib/Event/tcplisten.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 12 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 0 | 0 | if delete $arg{$_} |
| 25 | 0 | 0 | unless socket my $sock = gensym, 2, 1, $proto |
| 27 | 0 | 0 | unless setsockopt $sock, 1, 2, "\cA\000\000\000" |
| 29 | 0 | 0 | unless bind $sock, sockaddr_in($port, "\000\000\000\000") |
| 30 | 0 | 0 | unless listen $sock, 128 |
| 37 | 0 | 0 | unless accept $sock, $w->fd |