Branch Coverage

blib/lib/AnyEvent/HTTP/Socks.pm
Criterion Covered Total %
branch 32 46 69.5


line true false branch
47 7 0 if ($socks)
53 7 0 if (@chain) { }
76 7 3 unless ($sock)
78 0 7 $$chain[0]{'host'} =~ /^\[.+\]$/ ? :
0 7 unless socket $sock, $$chain[0]{'host'} =~ /^\[.+\]$/ ? 10 : 2, 1, getprotobyname('tcp')
109 10 0 if $$cv
112 3 7 if ($$chain[0]{'ver'} == 5 and $IO::Socket::Socks::SOCKS5_RESOLVE == 0 or $$chain[0]{'ver'} eq '4' and $IO::Socket::Socks::SOCKS4_RESOLVE == 0)
115 0 3 @$chain > 1 ? :
120 3 0 if $$cv
134 0 10 if ($$link{'ver'} eq '4a')
139 3 7 if (defined $$link{'login'})
141 3 0 if ($$link{'ver'} == 5)
146 3 7 @$chain ? :
148 7 3 if (ref $sock eq 'GLOB') { }
150 0 7 unless $sock = 'IO::Socket::Socks'->new_from_socket($sock, 'Blocking', 0, 'ProxyAddr', $$link{'host'}, 'ProxyPort', $$link{'port'}, 'SocksVersion', $$link{'ver'}, 'ConnectAddr', $host, 'ConnectPort', $port, @specopts)
162 0 3 unless $sock->command('SocksVersion', $$link{'ver'}, 'ConnectAddr', $host, 'ConnectPort', $port, @specopts)
170 3 7 $AnyEvent::HTTP::Socks::SOCKS_ERROR == 20 ? :
184 8 16 if ($sock->ready)
187 3 5 if (@$chain)
195 0 16 if ($AnyEvent::HTTP::Socks::SOCKS_ERROR == 21) { }
15 1 elsif ($AnyEvent::HTTP::Socks::SOCKS_ERROR == 20) { }
196 0 0 if ($w_type != 2)
206 7 8 if ($w_type != 1)