| blib/lib/Net/EmptyPort.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 25 | 30 | 83.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 42 | 5 | 4 | 17 | @_ && ref $_[0] eq 'HASH' |
| 49 | 2 | 1 | 1 | $port =~ /^[0-9]+$/ and $port < 49152 |
| 52 | 1 | 3 | 0 | $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
| 60 | 0 | 22 | 0 | $proto eq 'tcp' and check_port({'host', $host, 'port', $port}) |
| 68 | 1 | 1 | 107 | @_ && ref $_[0] eq 'HASH' |
| 107 | 8 | 74 | 5 | $max_wait >= 0 and $waited > $max_wait |
| 119 | 1 | 3 | 18 | @_ and ref $_[0] eq 'HASH' |
| 134 | 82 | 0 | 0 | $^O eq 'MSWin32' && defined $port |
| line | l | !l | condition |
|---|---|---|---|
| 21 | 4 | 26 | $port ||= 0 |
| 22 | 26 | 4 | $proto ||= 'tcp' |
| 129 | 20 | 2 | $max_wait ||= 10 |