| blib/lib/Net/OTServ.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 6 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 48 | 2 | 3 | unless my $ot = 'IO::Socket::INET'->new('PeerAddr', $ip, 'PeerPort', $port, 'Proto', 'tcp', 'Timeout', 1) |
| 57 | 0 | 3 | unless $xml |
| 59 | 1 | 2 | unless $status and not $@ |