| blib/lib/Net/EmptyPort.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 31 | 36 | 86.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 44 | 4 | 4 | 17 | @_ && ref $_[0] eq 'HASH' |
| 51 | 2 | 1 | 1 | $port =~ /^[0-9]+$/ and $port < 49152 |
| 54 | 1 | 3 | 0 | $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
| 62 | 1 | 20 | 0 | $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
| 70 | 1 | 3 | 88 | @_ && ref $_[0] eq 'HASH' |
| 74 | 24 | 66 | 2 | $proto and lc $proto eq 'udp' |
| 132 | 6 | 59 | 4 | $max_wait >= 0 and $waited > $max_wait |
| 144 | 1 | 3 | 15 | @_ and ref $_[0] eq 'HASH' |
| 159 | 65 | 0 | 0 | $^O eq 'MSWin32' && defined $port |
| line | l | !l | condition |
|---|---|---|---|
| 23 | 4 | 26 | $port ||= 0 |
| 24 | 25 | 5 | $proto ||= 'tcp' |
| 154 | 17 | 2 | $max_wait ||= 10 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 116 | 0 | 1 | 1 | defined $sock->recv(my $data, 1000) || ($^O eq 'MSWin32' ? $^E != Errno::WSAECONNRESET() && $^E != Errno::WSAECONNREFUSED() : $! != 111) |