| line |
true |
false |
branch |
|
121
|
0 |
1 |
unless $command eq ':autoinstall' |
|
123
|
0 |
1 |
if $@ |
|
144
|
0 |
0 |
unless ($method =~ /^[A-Za-z0-9_!\#\$%&\'*+\-.^\`|~]+$/) |
|
154
|
0 |
0 |
if (defined $proxy) { } |
|
158
|
0 |
0 |
$method eq 'CONNECT' ? : |
|
166
|
0 |
0 |
unless $fullpath =~ m[^/] |
|
178
|
0 |
0 |
if (my $proto = $request->protocol) |
|
179
|
0 |
0 |
if ($proto =~ m[^(?:HTTP/)?(1.\d+)$]) |
|
182
|
0 |
0 |
if $http_version eq '1.0' |
|
200
|
0 |
0 |
if ref $$content_ref |
|
204
|
0 |
0 |
if (ref $content_ref eq 'CODE') { } |
|
206
|
0 |
0 |
if $clen |
|
207
|
0 |
0 |
unless (defined $clen) |
|
216
|
0 |
0 |
if (defined $$content_ref and length $$content_ref) { } |
|
|
0 |
0 |
elsif ($clen) { } |
|
218
|
0 |
0 |
if (not defined $clen or $clen ne $has_content) |
|
219
|
0 |
0 |
if (defined $clen) |
|
233
|
0 |
0 |
if ($request_headers->header('Expect') || '') =~ /100-continue/ |
|
239
|
0 |
0 |
if (not $has_content or $write_wait or $has_content > 8192) |
|
245
|
0 |
0 |
unless (defined $n) |
|
246
|
0 |
0 |
if $!{'EINTR'} |
|
247
|
0 |
0 |
if ($!{'EAGAIN'}) |
|
253
|
0 |
0 |
if ($n) { } |
|
259
|
0 |
0 |
if length $req_buf |
|
266
|
0 |
0 |
if ($has_content) |
|
271
|
0 |
0 |
if ($write_wait) { } |
|
|
0 |
0 |
elsif (ref $content_ref eq 'CODE') { } |
|
280
|
0 |
0 |
unless defined $buf |
|
281
|
0 |
0 |
if $chunked |
|
283
|
0 |
0 |
if $req_buf |
|
287
|
0 |
0 |
if ($req_buf) { } |
|
304
|
0 |
0 |
if ($write_wait) |
|
305
|
0 |
0 |
if $write_wait < $sel_timeout |
|
308
|
0 |
0 |
if $sel_timeout |
|
311
|
0 |
0 |
$write_wait ? : |
|
316
|
0 |
0 |
if ($nfound < 0) |
|
317
|
0 |
0 |
if ($!{'EINTR'} or $!{'EAGAIN'}) |
|
318
|
0 |
0 |
if ($time_before) |
|
320
|
0 |
0 |
if $sel_timeout < 0 |
|
328
|
0 |
0 |
if ($write_wait) |
|
330
|
0 |
0 |
if $write_wait < 0 |
|
333
|
0 |
0 |
if (defined $rbits and $rbits =~ /[^\0]/) |
|
337
|
0 |
0 |
if (not defined $n) { } |
|
|
0 |
0 |
elsif ($n == 0) { } |
|
338
|
0 |
0 |
unless $!{'EINTR'} or $!{'EAGAIN'} |
|
349
|
0 |
0 |
if (not $code and $buf =~ /\015?\012\015?\012/) |
|
354
|
0 |
0 |
if ($code eq '100') { } |
|
366
|
0 |
0 |
if (defined $wbits and $wbits =~ /[^\0]/) |
|
368
|
0 |
0 |
if (not defined $n) { } |
|
|
0 |
0 |
elsif ($n == 0) { } |
|
369
|
0 |
0 |
unless $!{'EINTR'} or $!{'EAGAIN'} |
|
377
|
0 |
0 |
if (not $eof and $woffset >= length $$wbuf) |
|
380
|
0 |
0 |
unless defined $buf |
|
381
|
0 |
0 |
unless length $buf |
|
382
|
0 |
0 |
if $chunked |
|
391
|
0 |
0 |
unless $code |
|
393
|
0 |
0 |
if $code eq '100' |
|
403
|
0 |
0 |
if @junk |
|
416
|
0 |
0 |
if ($method eq 'CONNECT') |
|
421
|
0 |
0 |
if (my(@te) = $response->remove_header('Transfer-Encoding')) |
|
433
|
0 |
0 |
unless (defined $n) |
|
434
|
0 |
0 |
if $!{'EINTR'} or $!{'EAGAIN'} |
|
437
|
0 |
0 |
unless (defined $response->header('Client-Response-Server-Time')) |
|
442
|
0 |
0 |
if $n == -1 |
|
444
|
0 |
0 |
unless $n |
|
450
|
0 |
0 |
unless $complete |
|
453
|
0 |
0 |
if (@h) |
|
459
|
0 |
0 |
unless ($drop_connection) |
|
460
|
0 |
0 |
if (my $conn_cache = $$self{'ua'}{'conn_cache'}) |
|
463
|
0 |
0 |
if ($peer_http_version eq '1.1' and not $connection{'close'} or $connection{'keep-alive'}) |
|
488
|
0 |
0 |
if ($multi and not $addr_str =~ /^\d+(?:\.\d+){3}$/) { } |
|
492
|
0 |
0 |
if defined $h |