Branch Coverage

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


line true false branch
225 11 1 unless (defined $readfunc and defined $writefunc)
228 10 1 unless (defined $readh and defined $writeh)
242 0 12 if keys %opts
270 1 77 unless $self->{'readfunc'}->($b, $READLEN)
308 17 1 if ($ret eq 'RETURNED') { }
0 1 elsif ($ret eq 'DIED') { }
1 0 elsif ($ret eq 'CLOSED') { }
311 4 13 wantarray ? :
315 0 0 if ($message =~ /^While compiling code:.* at \(eval \d+\) line (\d+)/)
352 2 5 if $self->_has_stored_code($name)
359 5 0 if ($ret eq 'OK') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
365 0 0 if ($message =~ /^While compiling code for (\S+):.* at \(eval \d+\) line (\d+)/)
429 0 48 unless $self->_has_stored_code($name)
435 48 0 if ($ret eq 'RETURNED') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
438 7 41 wantarray ? :
473 1 5 if $self->{'stored_pkg'}{$package}
479 6 0 if ($ret eq 'OK') { }
0 0 elsif ($ret eq 'DIED') { }
0 0 elsif ($ret eq 'CLOSED') { }
505 9 1 if defined $self->{'pid'}