| blib/lib/Net/FleetDB.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 8 | 37.5 |
| line | l | !l | condition |
|---|---|---|---|
| 12 | 1 | 0 | delete $args{'host'} || '127.0.0.1' |
| 13 | 1 | 0 | delete $args{'port'} || 3400 |
| 15 | 0 | 1 | 'IO::Socket::INET'->new('PeerHost', $host, 'PeerPort', $port, 'Timeout', 60) || die("Error connecting to ${host}:${port}: $!") |
| 35 | 0 | 0 | $socket->getline || die($!) |