Branch Coverage

blib/lib/AnyEvent/Fork/Remote.pm
Criterion Covered Total %
branch 16 34 47.0


line true false branch
242 0 0 unless shift @fh
257 0 1 unless my($a, $b) = AnyEvent::Util::portable_socketpair()
260 0 1 unless open my $oldin, '<&0'
261 0 1 unless open my $oldout, '>&1'
263 0 1 unless open STDIN, '<&' . fileno($b)
264 0 1 unless open STDOUT, '>&' . fileno($b)
266 0 1 $p ? :
334 3 0 unless $s =~ /'/u
352 0 1 if length $linecode > 70
424 0 1 unless my $fh = shift()
427 1 0 length $ENV{'HOSTNAME'} ? :
444 1 0 if ($len or $! == 11 or $! == 11) { }
446 1 0 if $ofs >= length $code
458 1 0 if ($len or $! == 11 or $! == 11) { }
459 0 1 if length $rbuf > length $magic0
461 1 0 if ($rbuf eq ($magic0 ^ $magic1))
467 0 1 if $ww