| blib/lib/Net/Wait.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 4 | 14 | if (/^-verbose$/) |
| 16 | 4 | 0 | if $opts{'verbose'} = 1 |
| 19 | 6 | 8 | if (/^-timeout$/) |
| 21 | 1 | 5 | unless defined $timeout |
| 28 | 1 | 7 | if (/^-/) |
| 35 | 1 | 7 | unless @tests |
| 39 | 6 | 1 | if ($opts{'timeout'} > 0) |
| 41 | 5 | 1 | if $opts{'timeout'} != 1 |
| 47 | 1 | 6 | unless $host and $port |
| 50 | 4 | 2 | if $opts{'verbose'} |
| 56 | 1 | 5 | unless wait_port({"host", $host, "port", $port, "max_wait", $opts{'timeout'}, "proto", "tcp"}) |