Branch Coverage

blib/lib/IO/Socket/Socks/Wrapper.pm
Criterion Covered Total %
branch 41 96 42.7


line true false branch
20 145 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')) { }
91 2 3 exists $PKGS{$symbol} ? :
115 0 20 eval { do { *{$symbol;}{'CODE'} } } ? :
2 20 exists $PKGS{$pkg} ? :
126 0 41 if ($pkg_connect) { }
136 41 41 if ($parent->isa('IO::Socket'))
140 22 19 $connected ? :
159 0 3 unless (ref $socket)
184 87 86 if ($socket->isa('IO::Socket::Socks') or not $cfg)
185 4 83 unless ($io_socket and ${*$socket;}{'io_socket_timeout'})
195 86 0 if (($port, $host) = eval { do { unpack_sockaddr_in($name) } }) { }
207 39 47 unless ($io_handler or exists $$cfg{'Timeout'})
213 0 86 if ($io_handler) { }
0 86 elsif (not $socket->blocking) { }
220 0 0 unless open my $tmp_socket, '+<&=' . $tmp_fd
245 0 86 if ($need_nb)
249 41 45 unless $ok
250 45 0 if $ref and not $io_handler
252 0 45 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)