| blib/lib/Net/HTTPTunnel.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 149 | 0 | 0 | if ($var = shift @_) |
| 157 | 0 | 0 | unless defined $args{'remote-host'} and defined $args{'remote-port'} and defined $args{'proxy-host'} and defined $args{'proxy-port'} |
| 160 | 0 | 0 | unless $new_tunnel = 'IO::Socket::INET'->new('PeerAddr', $args{'proxy-host'}, 'PeerPort', $args{'proxy-port'}, 'Proto', 'tcp') |
| 172 | 0 | 0 | if ($args{'http-ver'} ne '1.0') |
| 179 | 0 | 0 | if ($args{'proxy-user'} and $args{'proxy-pass'}) |
| 189 | 0 | 0 | if ($args{'user-agent'}) |
| 210 | 0 | 0 | if (/ 200 /) { } |
| 0 | 0 | elsif (/^.$/) { } | |
| 0 | 0 | elsif (/^$/) { } | |
| 229 | 0 | 0 | unless $success |