Branch Coverage

blib/lib/IPC/PerlSSH/Base.pm
Criterion Covered Total %
branch 21 32 65.6


line true false branch
54 1 9348 if (not defined $arg) { }
202 10 0 if (exists $opts->{'Command'}) { }
204 2 8 ref $c && UNIVERSAL::isa($c, 'ARRAY') ? :
208 0 0 unless my $host = delete $opts->{'Host'}
210 0 0 if defined $opts->{'User'}
215 0 0 if defined $opts->{'Port'}
217 0 0 if defined $opts->{'SshOptions'}
244 0 77 unless $buffer =~ s/^(.*)\n(.*)\n//
249 1 11871 unless $buffer =~ s/^(.*)\n//
252 4 11867 if ($arglen eq 'U') { }
256 0 11867 unless length $buffer >= $arglen
295 7 8 if eval { do { require $filename } }
302 7 1 if $@ =~ /^Can't locate \Q$filename\E in \@INC/
307 1 7 unless (defined $classname)
315 4 76 if $name =~ /^_/
317 1 75 if $self->_has_stored_code($name)