| lib/Net/Signalet/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 3 | 6 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 0 | 2 | @args == 1 && ref $args[0] eq 'HASH' ? : |
| 16 | 0 | 2 | unless my $sock = 'IO::Socket::INET'->new('Proto', 'tcp', 'LocalPort', $args{'sport'} || 14550, 'LocalAddr', $args{'saddr'} || undef, 'Listen', $args{'listen'}, 'Timeout', $args{'timeout'} || 180, 'ReuseAddr', $args{'reuse'} || 0) |
| 25 | 0 | 2 | unless $sock->listen |