Branch Coverage

blib/lib/Net/SSH/Perl/WithSocks.pm
Criterion Covered Total %
branch 0 12 0.0


line true false branch
39 0 0 if ($params{'SocksHost'})
50 0 0 unless $ssh->{'WithSocks'}
53 0 0 unless defined $raddr
56 0 0 if ($rport =~ /\D/)
64 0 0 unless my $sock = 'IO::Socket::Socks'->new('ConnectAddr', $raddr, 'ConnectPort', $rport, %{$$ssh{'WithSocks'};})
72 0 0 unless defined $sock->blocking(0)