| line |
true |
false |
branch |
|
30
|
0 |
0 |
if ($conn_cache) |
|
31
|
0 |
0 |
if (my $sock = $conn_cache->withdraw('http', "${host}:$port")) |
|
32
|
0 |
0 |
if $sock and not $sock->can_read(0) |
|
51
|
0 |
0 |
unless ($sock) |
|
76
|
0 |
0 |
unless ($method =~ /^[A-Za-z0-9_!\#\$%&\'*+\-.^\`|~]+$/) |
|
88
|
0 |
0 |
unless length $fullpath |
|
105
|
0 |
0 |
if ref $$content_ref |
|
109
|
0 |
0 |
if (ref $content_ref eq 'CODE') { } |
|
111
|
0 |
0 |
if $clen |
|
112
|
0 |
0 |
unless (defined $clen) |
|
121
|
0 |
0 |
if (defined $$content_ref and length $$content_ref) { } |
|
|
0 |
0 |
elsif ($clen) { } |
|
123
|
0 |
0 |
if (not defined $clen or $clen ne length $$content_ref) |
|
124
|
0 |
0 |
if (defined $clen) |
|
145
|
0 |
0 |
unless defined $n |
|
146
|
0 |
0 |
unless $n == length $req_buf |
|
152
|
0 |
0 |
if ($has_content) |
|
154
|
0 |
0 |
if ($request_headers->header('Expect') || '') =~ /100-continue/ |
|
160
|
0 |
0 |
if (ref $content_ref eq 'CODE') { } |
|
162
|
0 |
0 |
unless defined $buf |
|
163
|
0 |
0 |
if $chunked |
|
179
|
0 |
0 |
if ($write_wait) |
|
181
|
0 |
0 |
if $write_wait < $sel_timeout |
|
185
|
0 |
0 |
$write_wait ? : |
|
187
|
0 |
0 |
unless (defined $nfound) |
|
191
|
0 |
0 |
if ($write_wait) |
|
193
|
0 |
0 |
if $write_wait < 0 |
|
196
|
0 |
0 |
if (defined $rbits and $rbits =~ /[^\0]/) |
|
200
|
0 |
0 |
unless ($n) |
|
204
|
0 |
0 |
if ($buf =~ /\015?\012\015?\012/) |
|
209
|
0 |
0 |
if ($code eq '100') { } |
|
220
|
0 |
0 |
if (defined $wbits and $wbits =~ /[^\0]/) |
|
222
|
0 |
0 |
unless ($n) |
|
223
|
0 |
0 |
unless defined $n |
|
228
|
0 |
0 |
if (not $eof and $woffset >= length $$wbuf) |
|
231
|
0 |
0 |
unless defined $buf |
|
232
|
0 |
0 |
unless length $buf |
|
233
|
0 |
0 |
if $chunked |
|
241
|
0 |
0 |
unless $code |
|
243
|
0 |
0 |
if $code eq '100' |
|
253
|
0 |
0 |
if @junk |
|
258
|
0 |
0 |
if ($method eq 'CONNECT') |
|
263
|
0 |
0 |
if (my(@te) = $response->remove_header('Transfer-Encoding')) |
|
275
|
0 |
0 |
unless defined $n |
|
276
|
0 |
0 |
if $n == -1 |
|
278
|
0 |
0 |
unless $n |
|
281
|
0 |
0 |
unless $complete |
|
290
|
0 |
0 |
unless ($drop_connection) |
|
291
|
0 |
0 |
if (my $conn_cache = $$self{'ua'}{'conn_cache'}) |
|
294
|
0 |
0 |
if ($peer_http_version eq '1.1' and not $connection{'close'} or $connection{'keep-alive'}) |
|
309
|
0 |
0 |
if (defined $check) |
|
313
|
0 |
0 |
unless $subject =~ /$check/ |
|
326
|
0 |
0 |
if ($cert) |
|
356
|
0 |
0 |
if (defined $ENV{'HTTPS_KEY_FILE'} and not exists $cfg{'SSL_key_file'}) |
|
360
|
0 |
0 |
if (defined $ENV{'HTTPS_CA_DIR'} and not exists $cfg{'SSL_ca_path'}) |
|
364
|
0 |
0 |
if (defined $ENV{'HTTPS_CA_FILE'} and not exists $cfg{'SSL_ca_file'}) |
|
368
|
0 |
0 |
if (defined $ENV{'HTTPS_CERT_FILE'} and not exists $cfg{'SSL_cert_file'}) |
|
372
|
0 |
0 |
if (not exists $cfg{'SSL_use_cert'} and exists $cfg{'SSL_cert_file'}) |
|
378
|
0 |
0 |
unless ((my $rc = $sc->connect($host, $port)) == SOCKS_OKAY()) |
|
386
|
0 |
0 |
if ($IO::Socket::SSL::VERSION > 0.97) { } |
|
387
|
0 |
0 |
if $obj->configure_SSL(\%cfg) |
|
389
|
0 |
0 |
if $obj->configure_SSL(\%cfg) |