| blib/lib/Net/Time.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 18 | 72.2 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 5 | 0 | defined $host ? : |
| 41 | 4 | 1 | if $me = "IO::Socket::INET"->new("PeerAddr", $addr, "PeerPort", $port, "Proto", $proto) |
| 49 | 1 | 4 | unless $me |
| 51 | 3 | 1 | if $proto eq "udp" |
| 54 | 3 | 1 | unless defined $timeout |
| 57 | 4 | 0 | 'IO::Select'->new($me)->can_read($timeout) ? : |
| 69 | 0 | 1 | unless defined $s->recv($buf, 4) |
| 77 | 0 | 1 | if ($^O eq 'MacOS') { } |
| 97 | 1 | 0 | defined $s->recv($buf, 1024) ? : |