| blib/lib/IO/Socket/INET/Daemon.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 20 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 2 | if not $rc{'port'} or $rc{'port'} =~ /\D/ |
| 40 | 0 | 1 | unless my $host = $$self{'sck'} = 'IO::Socket::INET'->new('LocalHost', $$self{'host'}, 'LocalPort', $$self{'port'}, 'Proto', 'tcp', 'ReuseAddr', 1, 'Listen', 32) |
| 60 | 2 | 3 | if ($io == $host) { } |
| 3 | 0 | elsif ($io->connected) { } | |
| 63 | 2 | 0 | if ($self->call('add', $peer)) { } |
| 74 | 1 | 2 | unless ($self->call('data', $io)) |
| 96 | 6 | 5 | $func ? : |
| 103 | 2 | 1 | if ($io and $io != $$self{'sck'}) |
| 129 | 1 | 1 | if ($select) |
| 135 | 1 | 1 | if ($host) |