line |
true |
false |
branch |
22
|
0 |
45 |
if ($host =~ /:/ and not $host =~ /^\[/) |
37
|
2 |
43 |
unless ($sock) |
40
|
0 |
2 |
if ($@ =~ /\bconnect: (.*)/ or $@ =~ /\b(Bad hostname)\b/ or $@ =~ /\b(nodename nor servname provided, or not known)\b/ or $@ =~ /\b(certificate verify failed)\b/ or $@ =~ /\b(Crypt-SSLeay can't verify hostnames)\b/) { } |
|
2 |
0 |
elsif ($@) { } |
83
|
43 |
0 |
if (defined(my $peerhost = $sock->peerhost)) |
94
|
0 |
43 |
if ($hhost =~ s/^([^\@]*)\@//) |
98
|
0 |
0 |
if (defined $1 and not $h->header('Authorization')) |
106
|
1 |
42 |
if ($proxy and $url->scheme ne 'https') |
111
|
0 |
1 |
if (defined $p_auth) |
123
|
0 |
0 |
unless lc $hlist->[$i] eq $k |
136
|
0 |
45 |
unless ($method =~ /^[A-Za-z0-9_!\#\$%&\'*+\-.^\`|~]+$/) |
157
|
2 |
43 |
$proxy ? : |
163
|
2 |
43 |
$proxy && !$ssl_tunnel ? : |
|
0 |
45 |
$method eq 'CONNECT' ? : |
165
|
0 |
43 |
unless $path =~ m[^/] |
172
|
1 |
44 |
if ($conn_cache) |
178
|
0 |
1 |
if $ssl_tunnel |
179
|
0 |
1 |
if ($socket = $conn_cache->withdraw($self->socket_type, $cache_key)) |
180
|
0 |
0 |
if ($socket->can_read(0)) { } |
193
|
0 |
45 |
if (not $socket and $ssl_tunnel) |
195
|
0 |
0 |
unless my $proto_https = LWP::Protocol::create('https', $self->{'ua'}) |
200
|
0 |
0 |
if (my $upgrade_sub = $proto_https->can('_upgrade_sock')) { } |
206
|
0 |
0 |
unless $response->is_success |
209
|
0 |
0 |
unless $socket = &$upgrade_sub($proto_https, $response->{'client_socket'}, $url) |
216
|
45 |
0 |
unless ($socket) |
222
|
0 |
43 |
if (my $proto = $request->protocol) |
223
|
0 |
0 |
if ($proto =~ m[^(?:HTTP/)?(1.\d+)$]) |
226
|
0 |
0 |
if $http_version eq '1.0' |
244
|
0 |
43 |
if ref $$content_ref |
248
|
0 |
43 |
if (ref $content_ref eq 'CODE') { } |
250
|
0 |
0 |
if $clen |
251
|
0 |
0 |
unless (defined $clen) |
260
|
2 |
41 |
if (defined $$content_ref and length $$content_ref) { } |
|
0 |
41 |
elsif ($clen) { } |
262
|
2 |
0 |
if (not defined $clen or $clen ne $has_content) |
263
|
0 |
2 |
if (defined $clen) |
277
|
0 |
43 |
if ($request_headers->header('Expect') || '') =~ /100-continue/ |
283
|
0 |
2 |
if (not $has_content or $write_wait or $has_content > 8192) |
289
|
0 |
41 |
unless (defined $n) |
290
|
0 |
0 |
if $!{'EINTR'} |
291
|
0 |
0 |
if ($!{'EWOULDBLOCK'} or $!{'EAGAIN'}) |
297
|
41 |
0 |
if ($n) { } |
303
|
0 |
41 |
if length $req_buf |
310
|
2 |
41 |
if ($has_content) |
315
|
0 |
2 |
if ($write_wait) { } |
|
0 |
2 |
elsif (ref $content_ref eq 'CODE') { } |
324
|
0 |
0 |
unless defined $buf |
325
|
0 |
0 |
if $chunked |
327
|
0 |
0 |
if $req_buf |
331
|
2 |
0 |
if ($req_buf) { } |
348
|
0 |
2 |
if ($write_wait) |
349
|
0 |
0 |
if $write_wait < $sel_timeout |
352
|
2 |
0 |
if $sel_timeout |
355
|
0 |
2 |
$write_wait ? : |
360
|
0 |
2 |
if ($nfound < 0) |
361
|
0 |
0 |
if ($!{'EINTR'} or $!{'EWOULDBLOCK'} or $!{'EAGAIN'}) |
362
|
0 |
0 |
if ($time_before) |
364
|
0 |
0 |
if $sel_timeout < 0 |
372
|
0 |
2 |
if ($write_wait) |
374
|
0 |
0 |
if $write_wait < 0 |
377
|
0 |
2 |
if (defined $rbits and $rbits =~ /[^\0]/) |
381
|
0 |
0 |
defined $n ? : |
382
|
0 |
0 |
unless $!{'EINTR'} or $!{'EWOULDBLOCK'} or $!{'EAGAIN'} |
393
|
0 |
0 |
if (not $code and $buf =~ /\015?\012\015?\012/) |
398
|
0 |
0 |
if ($code eq '100') { } |
410
|
2 |
0 |
if (defined $wbits and $wbits =~ /[^\0]/) |
412
|
2 |
0 |
defined $n ? : |
413
|
0 |
0 |
unless $!{'EINTR'} or $!{'EWOULDBLOCK'} or $!{'EAGAIN'} |
421
|
0 |
2 |
if (not $eof and $woffset >= length $$wbuf) |
424
|
0 |
0 |
unless defined $buf |
425
|
0 |
0 |
unless length $buf |
426
|
0 |
0 |
if $chunked |
435
|
43 |
0 |
unless $code |
437
|
0 |
43 |
if $code eq '100' |
447
|
0 |
43 |
if @junk |
452
|
0 |
43 |
if ($method eq 'CONNECT') |
457
|
0 |
43 |
if (my(@te) = $response->remove_header('Transfer-Encoding')) |
469
|
0 |
68 |
unless (defined $n) |
470
|
0 |
0 |
if $!{'EINTR'} or $!{'EWOULDBLOCK'} or $!{'EAGAIN'} or $!{'ENOTTY'} |
473
|
0 |
68 |
if $n == -1 |
475
|
42 |
26 |
unless $n |
478
|
1 |
42 |
unless $complete |
481
|
0 |
43 |
if (@h) |
487
|
42 |
1 |
unless ($drop_connection) |
488
|
0 |
42 |
if ($cache_key) |
491
|
0 |
0 |
if ($peer_http_version eq '1.1' and not $connection{'close'} or $connection{'keep-alive'}) |