Branch Coverage

blib/lib/IO/Socket/Socks/Wrapper.pm
Criterion Covered Total %
branch 43 96 44.7


line true false branch
20 144 20 if $io_socket_connect
26 0 0 unless pipe my $blocking_reader, my $blocking_writer
37 0 0 if ($total_writed > 2097152)
52 0 0 if select undef, $win, undef, 0
59 0 3 if (@_ == 1 and not ref $_[0] and $_[0] eq 'wrap_connection')
64 3 32 unless (defined $cfg)
69 32 3 if ($pkg) { }
73 5 27 if ($pkg =~ /^(.+)::([^:]+)\(\)$/)
82 2 30 unless (delete $cfg->{'_norequire'} or %{$pkg . '::';})
83 0 2 unless eval "require $pkg"
87 5 27 if ($sub) { }
22 5 elsif ($pkg->isa('IO::Socket')) { }
93 2 3 exists $PKGS{$symbol} ? :
115 0 20 eval { do { *{$symbol;}{'CODE'} } } ? :
2 20 exists $PKGS{$pkg} ? :
126 0 40 if ($pkg_connect) { }
136 40 41 if ($parent->isa('IO::Socket'))
140 21 19 $connected ? :
159 2 19 unless (ref $socket)
184 96 93 if ($socket->isa('IO::Socket::Socks') or not $cfg)
185 13 83 unless ($io_socket and do { *$socket }->{'io_socket_timeout'})
195 93 0 if (($port, $host) = eval { do { unpack_sockaddr_in($name) } }) { }
207 39 54 unless ($io_handler or exists $cfg->{'Timeout'})
213 0 93 if ($io_handler) { }
5 88 elsif (not $socket->blocking) { }
220 0 0 unless open my $tmp_socket, '+<&=' . $tmp_fd
245 5 88 if ($need_nb)
249 45 0 unless $ok or $io_handler and $IO::Socket::Socks::SOCKS_ERROR == &IO::Socket::Socks::SOCKS_WANT_WRITE
250 48 0 if $ref and not $io_handler
252 0 48 if ($io_handler)
257 0 0 unless ($done)
261 0 0 if ($io_handler->{'destroy_io_watcher'})
288 0 0 if ($socket->ready) { }
0 0 elsif ($IO::Socket::Socks::SOCKS_ERROR == &IO::Socket::Socks::SOCKS_WANT_WRITE) { }
0 0 elsif ($IO::Socket::Socks::SOCKS_ERROR != &IO::Socket::Socks::SOCKS_WANT_READ) { }
291 0 0 if ($io_handler->{'destroy_io_watcher'})
304 0 0 if ($io_handler->{'destroy_io_watcher'})
313 0 0 if ($socket->ready) { }
0 0 elsif ($IO::Socket::Socks::SOCKS_ERROR == &IO::Socket::Socks::SOCKS_WANT_READ) { }
0 0 elsif ($IO::Socket::Socks::SOCKS_ERROR != &IO::Socket::Socks::SOCKS_WANT_WRITE) { }
316 0 0 if ($io_handler->{'destroy_io_watcher'})
329 0 0 if ($io_handler->{'destroy_io_watcher'})
337 0 0 if ($io_handler->{'init_io_watcher'})
357 0 0 unless open my $self, '+<&=' . fileno($orig_handle)
369 0 0 if (@_)
378 0 0 @_ > 2 ? :
383 0 0 @_ > 2 ? :
394 0 0 unless ($self->handshake_done)