lib/Net/HL7/Connection.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 2 | 4 | 50.0 |
line | l | !l | condition |
---|---|---|---|
90 | 0 | 1 | $arg{'Timeout'} || 10 |
99 | 1 | 0 | 'IO::Socket::INET'->new('Proto', 'tcp', 'PeerAddr', $host, 'PeerPort', $port, 'Timeout', $$self{'Timeout'}) || (return undef) |