| blib/lib/File/HTTP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 149 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 147 | 0 | 0 | 0 | defined $arg and ref $arg |
| 341 | 0 | 0 | 0 | $offset and $_[0] |
| 420 | 0 | 0 | 0 | $self->[17] && &File::HTTP::time() - $self->[19] <= $MAX_SEC_NO_CLOSE |
| 435 | 0 | 0 | 0 | defined $headers and $headers eq "HTTP/" |
| 466 | 0 | 0 | 0 | $self->[4] > $self->[5] and $self->[4] - $self->[5] < $MAX_LENGTH_SKIP + $self->[21] |
| 485 | 0 | 0 | 0 | $REQUEST_HEADERS && ref $REQUEST_HEADERS |
| 516 | 0 | 0 | 0 | $DEBUG_SLOW_CONNECTION && &File::HTTP::time() |
| 518 | 0 | 0 | 0 | $DEBUG_SLOW_CONNECTION and &File::HTTP::time() - $t >= "0.4" |
| 522 | 0 | 0 | 0 | $_ < 3 and $! =~ /Interrupted system call/i |
| 566 | 0 | 0 | 0 | $code =~ /^3/ and $RESPONSE_HEADERS =~ /\015?\012Location: ([^\015\012]+)/i |
| 570 | 0 | 0 | 0 | $RESPONSE_HEADERS =~ /\015?\012Content-Length: (\d+)/i && $1 |
| 571 | 0 | 0 | 0 | $code =~ /^200$|^416$/ and $self->[4] >= $self->[6] |
| 576 | 0 | 0 | 0 | $VERBOSE and $code == 200 |
| 581 | 0 | 0 | 0 | $RESPONSE_HEADERS =~ /\015?\012Transfert-Encoding: +chunked/i and $self->[16] <= 1 |
| 621 | 0 | 0 | 0 | $self->[22] and $len |
| 0 | 0 | 0 | $self->[22] and $len and $n < $len | |
| 667 | 0 | 0 | 0 | $no_proxy and $self->[2] =~ /$no_proxy$/i |
| 732 | 0 | 0 | 0 | defined $self->[4] and not defined $self->[6] |
| line | l | !l | condition |
|---|---|---|---|
| 183 | 0 | 0 | $dir || '' |
| 208 | 0 | 0 | $dir || '' |
| 232 | 0 | 0 | tied *$dirh || (return CORE::readdir $dirh) |
| 251 | 0 | 0 | tied *$dirh || (return CORE::rewinddir $dirh) |
| 262 | 0 | 0 | tied *$dirh || (return CORE::telldir $dirh) |
| 272 | 0 | 0 | tied *$dirh || (return CORE::seekdir($dirh, $pos)) |
| 283 | 0 | 0 | tied *$dirh || (return CORE::closedir $dirh) |
| 308 | 0 | 0 | $file || '' |
| 331 | 0 | 0 | $offset ||= 0 |
| 333 | 0 | 0 | $file || '' |
| 359 | 0 | 0 | &open_stream($url) || (return) |
| 379 | 0 | 0 | $RESPONSE_HEADERS || "HTTP/1.0 502 Bad Gateway\r\nContent-Length: 0\r\n\r\n" |
| 393 | 0 | 0 | $path ||= "/" |
| 413 | 0 | 0 | $RESPONSE_HEADERS || "HTTP/1.0 502 Bad Gateway\r\nContent-Length: 0\r\n\r\n" |
| 464 | 0 | 0 | $self->[21] ||= 0 |
| 525 | 0 | 0 | $self->[18] ||= [CORE::stat $self->[17]] |
| 655 | 0 | 0 | $self->[8] ||= "/" |
| 665 | 0 | 0 | $ENV{'NO_PROXY'} || '' |
| 833 | 0 | 0 | shift() || (return) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 184 | 0 | 0 | 0 | $_[0] ||= &Symbol::gensym() |
| 209 | 0 | 0 | 0 | $_[0] ||= &Symbol::gensym() |
| 310 | 0 | 0 | 0 | $_[0] ||= &Symbol::gensym() |
| 334 | 0 | 0 | 0 | $_[0] ||= &Symbol::gensym() |
| 392 | 0 | 0 | 0 | $port ||= $Proto2Port{$proto} |
| 440 | 0 | 0 | 0 | not $headers =~ m[^HTTP/[\d\.]+ (\d+)] or &bytes::length($headers) > $MAX_HEADER_SIZE |
| 450 | 0 | 0 | 0 | ++$nb_lines > $MAX_HEADER_LINES or &bytes::length($headers) > $MAX_HEADER_SIZE |
| 534 | 0 | 0 | 0 | $TUNNELING_USER_AGENT || $USER_AGENT |
| 570 | 0 | 0 | 0 | $self->[6] ||= $RESPONSE_HEADERS =~ /\015?\012Content-Length: (\d+)/i && $1 |
| 575 | 0 | 0 | 0 | $HTTP2FS_error{$code} || &Errno::ENOSYS |
| 582 | 0 | 0 | 0 | $HTTP2FS_error{$code} || &Errno::ENOSYS |
| 654 | 0 | 0 | 0 | $self->[7] ||= $Proto2Port{$self->[1]} |
| 663 | 0 | 0 | 0 | $ENV{'HTTPS_PROXY'} || $ENV{'HTTP_PROXY'} |
| 667 | 0 | 0 | 0 | $self->[2] eq "127.0.0.1" or $self->[2] eq "localhost" |
| 0 | 0 | 0 | $self->[2] eq "127.0.0.1" or $self->[2] eq "localhost" or $no_proxy and $self->[2] =~ /$no_proxy$/i | |
| 682 | 0 | 0 | 0 | $self->[7] ||= $Proto2Port{$self->[1]} |
| 843 | 0 | 0 | 0 | $self->[18][7] ||= $self->[6] |
| 844 | 0 | 0 | 0 | $self->[18][9] ||= $self->_mtime |
| 852 | 0 | 0 | 0 | $TIME_GM_CODE ||= do { if (eval { do { require Time::y2038; 1 } }) { \&Time::y2038::timegm; } elsif (eval { do { require Time::Local; 1 } }) { \&Time::Local::timegm; } } |