Branch Coverage

blib/lib/IPC/PerlSSH.pm
Criterion Covered Total %
branch 25 48 52.0


line true false branch
215 11 1 unless (defined $readfunc and defined $writefunc)
218 10 1 unless (defined $readh and defined $writeh)
232 0 12 if keys %opts
260 1 80 unless $$self{'readfunc'}($b, 8192)
296 17 1 if ($ret eq 'RETURNED') { }
0 1 elsif ($ret eq 'DIED') { }
1 0 elsif ($ret eq 'CLOSED') { }
299 4 13 wantarray ? :
303 0 0 if ($message =~ /^While compiling code:.* at \(eval \d+\) line (\d+)/)
338 2 5 if $self->_has_stored_code($name)
345 5 0 if ($ret eq 'OK') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
351 0 0 if ($message =~ /^While compiling code for (\S+):.* at \(eval \d+\) line (\d+)/)
411 0 48 unless $self->_has_stored_code($name)
417 48 0 if ($ret eq 'RETURNED') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
420 7 41 wantarray ? :
453 1 5 if $$self{'stored_pkg'}{$package}
459 6 0 if ($ret eq 'OK') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
485 9 1 if defined $$self{'pid'}