Branch Coverage

blib/lib/Net/SSH/Perl/SSH1.pm
Criterion Covered Total %
branch 9 96 9.3


line true false branch
37 1 0 unless ($config->get("user_known_hosts"))
38 0 1 unless defined $home
41 1 0 unless ($config->get("global_known_hosts"))
43 0 1 $^O eq 'MSWin32' ? :
47 1 0 unless (my $if = $config->get("identity_files"))
48 0 1 unless defined $home
53 5 0 unless defined $config->get("auth_$a")
61 1 0 if @_
72 0 0 if ($type eq 'stdout') { }
0 0 elsif ($type eq 'stderr') { }
84 0 0 unless $user
116 0 0 $i < 16 ? :
121 0 0 if ($keys{'public'}{'rsa'}{'n'} < $keys{'host'}{'rsa'}{'n'}) { }
131 0 0 if ($cipher_name = $ssh->{'config'}->get('cipher')) { }
136 0 0 if ($cid = Net::SSH::Perl::Cipher::id('IDEA') and Net::SSH::Perl::Cipher::supported($cid, $supported_ciphers)) { }
0 0 elsif ($cid = Net::SSH::Perl::Cipher::id('DES3') and Net::SSH::Perl::Cipher::supported($cid, $supported_ciphers)) { }
148 0 0 unless (Net::SSH::Perl::Cipher::supported($cipher, $supported_ciphers))
172 0 0 if $packet->type == &SSH_SMSG_SUCCESS()
174 0 0 if ($packet->type != &SSH_SMSG_FAILURE())
181 0 0 unless Net::SSH::Perl::Auth::supported($auth_id, $supported_auth)
184 0 0 if $valid
190 0 10 if (@_)
201 0 0 unless $ssh->sock
202 0 0 unless $ssh->_login
205 0 0 if ($ssh->{'config'}->get("compression"))
207 0 0 if ($@) { }
218 0 0 if ($packet->type == &SSH_SMSG_SUCCESS()) { }
227 0 0 if ($ssh->{'config'}->get("use_pty"))
234 0 0 if (eval "require Term::ReadKey")
236 0 0 if (defined $sz[0])
244 0 0 unless ($foundsize)
251 0 0 unless ($packet->type == &SSH_SMSG_SUCCESS())
271 0 0 if (defined $stdin)
284 0 0 unless ($ssh->handler_for(&SSH_SMSG_STDOUT_DATA()))
288 0 0 unless ($ssh->handler_for(&SSH_SMSG_STDERR_DATA()))
292 0 0 unless ($ssh->handler_for(&SSH_SMSG_EXITSTATUS()))
298 0 0 defined $stdin ? :
310 0 0 unless defined $ssh->{'config'}->get("use_pty")
335 0 0 unless ($cmd)
337 0 0 unless defined $ssh->{'config'}->get("use_pty")
341 0 0 if ($cmd) { }
371 0 0 unless $sent_stdin
378 0 0 if ($a == $ssh->{'session'}{'sock'}) { }
0 0 elsif ($a == \*STDIN) { }
381 0 0 unless $len
396 0 0 if (my $r = $ssh->handler_for($packet->type)) { }
404 0 0 if ($packet->type == &SSH_SMSG_EXITSTATUS())
411 0 0 if $ssh->_quit_pending