Branch Coverage

blib/lib/LaBrea/NetIO.pm
Criterion Covered Total %
branch 19 26 73.0


line true false branch
141 2 2 if not $port or $port =~ /\D/
143 1 1 unless $iaddr = inet_aton($host)
146 0 1 unless socket $S, 2, 1, $proto
149 0 0 unless (connect $S, $paddr)
183 1 0 if $timeout
186 0 1 if $@
187 0 1 wantarray ? :
217 1 4 if (&_want_daemon(\$target)) { }
220 2 47 if open_tcp($S, $d_host, $d_port)
223 5 121 unless open $S, $target
237 0 6 unless $tgp
238 4 2 unless ref $$tgp eq 'HASH'
239 1 1 if (exists $${$tgp;}{'file'})