| line |
true |
false |
branch |
|
52
|
0 |
0 |
if (defined $ENV{'HTTPS_KEY_FILE'} and not exists $cfg{'SSL_key_file'}) |
|
56
|
0 |
0 |
if (defined $ENV{'HTTPS_CA_DIR'} and not exists $cfg{'SSL_ca_path'}) |
|
60
|
0 |
0 |
if (defined $ENV{'HTTPS_CA_FILE'} and not exists $cfg{'SSL_ca_file'}) |
|
64
|
0 |
0 |
if (defined $ENV{'HTTPS_CERT_FILE'} and not exists $cfg{'SSL_cert_file'}) |
|
68
|
0 |
0 |
if (not exists $cfg{'SSL_use_cert'} and exists $cfg{'SSL_cert_file'}) |
|
74
|
0 |
0 |
unless ((my $rc = $sc->connect($host, $port)) == SOCKS_OKAY()) |
|
80
|
0 |
0 |
if ($IO::Socket::SSL::VERSION > 0.97) { } |
|
81
|
0 |
0 |
if $obj->configure_SSL(\%cfg) |
|
83
|
0 |
0 |
if $obj->configure_SSL(\%cfg) |
|
86
|
0 |
0 |
unless ($obj) |
|
107
|
0 |
0 |
if (defined $check) |
|
111
|
0 |
0 |
unless $subject =~ /$check/ |
|
124
|
0 |
0 |
if ($cert) |
|
142
|
0 |
0 |
unless defined $h->header('Host') |
|
147
|
0 |
0 |
if (defined $1 and not $h->header('Authorization')) |
|
163
|
0 |
0 |
unless ($method =~ /^[A-Za-z0-9_!\#\$%&\'*+\-.^\`|~]+$/) |
|
175
|
0 |
0 |
unless length $fullpath |
|
182
|
0 |
0 |
if $timeout |
|
189
|
0 |
0 |
if ref $$cont_ref |
|
195
|
0 |
0 |
if ($ctype eq 'CODE') { } |
|
196
|
0 |
0 |
unless defined $h->header('Content-Length') or $h->content_type =~ m[^multipart/] |
|
201
|
0 |
0 |
if defined $$cont_ref and length $$cont_ref |
|
217
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
219
|
0 |
0 |
unless defined $n |
|
223
|
0 |
0 |
if ($ctype eq 'CODE') { } |
|
|
0 |
0 |
elsif (defined $$cont_ref and length $$cont_ref) { } |
|
229
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
231
|
0 |
0 |
unless defined $n |
|
240
|
0 |
0 |
if $timeout and not $sel->can_write($timeout) |
|
242
|
0 |
0 |
unless defined $n |
|
255
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
257
|
0 |
0 |
unless defined $n |
|
258
|
0 |
0 |
unless $n |
|
260
|
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/) { } |
|
271
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
274
|
0 |
0 |
unless defined $n |
|
275
|
0 |
0 |
unless $n |
|
290
|
0 |
0 |
unless length $line |
|
292
|
0 |
0 |
if ($line =~ /^([a-zA-Z0-9_\-.]+)\s*:\s*(.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^\s+(.*)/ and $key) { } |
|
293
|
0 |
0 |
if $key |
|
301
|
0 |
0 |
if $key |
|
318
|
0 |
0 |
if ($method eq 'CONNECT') |
|
326
|
0 |
0 |
if ($usebuf) |
|
330
|
0 |
0 |
if $timeout and not $sel->can_read($timeout) |
|
332
|
0 |
0 |
unless defined $n |