| line |
true |
false |
branch |
|
42
|
0 |
0 |
unless ((my $rc = $sc->connect($host, $port)) == SOCKS_OKAY()) |
|
48
|
0 |
0 |
unless ($sock) |
|
75
|
0 |
0 |
if (defined(my $peerhost = $sock->peerhost)) |
|
91
|
0 |
0 |
unless defined $h->header('Host') |
|
96
|
0 |
0 |
if (defined $1 and not $h->header('Authorization')) |
|
113
|
0 |
0 |
unless ($method =~ /^[A-Za-z0-9_!\#\$%&\'*+\-.^\`|~]+$/) |
|
125
|
0 |
0 |
unless length $fullpath |
|
132
|
0 |
0 |
if $timeout |
|
139
|
0 |
0 |
if ref $$cont_ref |
|
145
|
0 |
0 |
if ($ctype eq 'CODE') { } |
|
146
|
0 |
0 |
unless defined $h->header('Content-Length') or $h->content_type =~ m[^multipart/] |
|
151
|
0 |
0 |
if defined $$cont_ref and length $$cont_ref |
|
167
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
169
|
0 |
0 |
unless defined $n |
|
173
|
0 |
0 |
if ($ctype eq 'CODE') { } |
|
|
0 |
0 |
elsif (defined $$cont_ref and length $$cont_ref) { } |
|
179
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
181
|
0 |
0 |
unless defined $n |
|
190
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
192
|
0 |
0 |
unless defined $n |
|
205
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
207
|
0 |
0 |
unless defined $n |
|
208
|
0 |
0 |
unless $n |
|
210
|
0 |
0 |
if ($buf =~ s[^(HTTP/\d+\.\d+)[ \t]+(\d+)[ \t]*([^\012]*)\012][]) { } |
|
|
0 |
0 |
elsif (length $buf >= 5 and not $buf =~ m[^HTTP/] or $buf =~ /\012/) { } |
|
221
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
224
|
0 |
0 |
unless defined $n |
|
225
|
0 |
0 |
unless $n |
|
240
|
0 |
0 |
unless length $line |
|
242
|
0 |
0 |
if ($line =~ /^([a-zA-Z0-9_\-.]+)\s*:\s*(.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s+(.*)/ and $key) { } |
|
243
|
0 |
0 |
if $key |
|
251
|
0 |
0 |
if $key |
|
268
|
0 |
0 |
if ($method eq 'CONNECT') |
|
276
|
0 |
0 |
if ($usebuf) |
|
280
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
282
|
0 |
0 |
unless defined $n |