Condition Coverage

blib/lib/File/HTTP.pm
Criterion Covered Total %
condition 0 161 0.0


and 2 conditions

line l !l condition
297 0 0 tie(*{$_[0];}, 'File::HTTP', $file, 0) && 1
319 0 0 tie(*{$_[0];}, 'File::HTTP', $file, $offset) && 1

and 3 conditions

line !l l&&!r l&&r condition
147 0 0 0 defined $arg and ref $arg
323 0 0 0 $offset and $_[0]
398 0 0 0 $self->[17] && &File::HTTP::time() - $self->[19] <= $MAX_SEC_NO_CLOSE
413 0 0 0 defined $headers and $headers eq 'HTTP/'
444 0 0 0 $self->[4] > $self->[5] and $self->[4] - $self->[5] < $MAX_LENGTH_SKIP + $self->[21]
463 0 0 0 $REQUEST_HEADERS && ref $REQUEST_HEADERS
494 0 0 0 $DEBUG_SLOW_CONNECTION && &File::HTTP::time()
496 0 0 0 $DEBUG_SLOW_CONNECTION and &File::HTTP::time() - $t >= 0.4
500 0 0 0 $_ < 3 and $! =~ /Interrupted system call/i
544 0 0 0 $code =~ /^3/ and $RESPONSE_HEADERS =~ /\015?\012Location: ([^\015\012]+)/i
548 0 0 0 $RESPONSE_HEADERS =~ /\015?\012Content-Length: (\d+)/i && $1
549 0 0 0 $code =~ /^200$|^416$/ and $self->[4] >= $self->[6]
554 0 0 0 $VERBOSE and $code == 200
559 0 0 0 $RESPONSE_HEADERS =~ /\015?\012Transfert-Encoding: +chunked/i and $self->[16] <= 1
599 0 0 0 $self->[22] and $len
0 0 0 $self->[22] and $len and $n < $len
645 0 0 0 $no_proxy and $self->[2] =~ /$no_proxy$/i
710 0 0 0 defined $self->[4] and not defined $self->[6]

or 2 conditions

line l !l condition
159 0 0 TIEHANDLE('File::HTTP', $arg, 0) || (return undef)
177 0 0 $dir || ''
179 0 0 tie(*{$_[0];}, 'File::HTTP', $dir, undef) || (return)
198 0 0 $dir || ''
200 0 0 tie(*{$_[0];}, 'File::HTTP', $dir, undef) || (return)
218 0 0 tied *$dirh || (return CORE::readdir $dirh)
237 0 0 tied *$dirh || (return CORE::rewinddir $dirh)
248 0 0 tied *$dirh || (return CORE::telldir $dirh)
258 0 0 tied *$dirh || (return CORE::seekdir($dirh, $pos))
269 0 0 tied *$dirh || (return CORE::closedir $dirh)
294 0 0 $file || ''
315 0 0 $offset ||= 0
317 0 0 $file || ''
331 0 0 TIEHANDLE('File::HTTP', $url, $offset, 1) || (return undef)
337 0 0 &open_stream($url) || (return)
357 0 0 $RESPONSE_HEADERS || "HTTP/1.0 502 Bad Gateway\r\nContent-Length: 0\r\n\r\n"
371 0 0 $path ||= '/'
391 0 0 $RESPONSE_HEADERS || "HTTP/1.0 502 Bad Gateway\r\nContent-Length: 0\r\n\r\n"
442 0 0 $self->[21] ||= 0
503 0 0 $self->[18] ||= [CORE::stat $self->[17]]
633 0 0 $self->[8] ||= '/'
643 0 0 $ENV{'NO_PROXY'} || ''
811 0 0 shift() || (return)

or 3 conditions

line l !l&&r !l&&!r condition
178 0 0 0 $_[0] ||= &Symbol::gensym()
199 0 0 0 $_[0] ||= &Symbol::gensym()
296 0 0 0 $_[0] ||= &Symbol::gensym()
318 0 0 0 $_[0] ||= &Symbol::gensym()
370 0 0 0 $port ||= $Proto2Port{$proto}
418 0 0 0 not $headers =~ m[^HTTP/[\d\.]+ (\d+)] or &bytes::length($headers) > $MAX_HEADER_SIZE
428 0 0 0 ++$nb_lines > $MAX_HEADER_LINES or &bytes::length($headers) > $MAX_HEADER_SIZE
512 0 0 0 $TUNNELING_USER_AGENT || $USER_AGENT
548 0 0 0 $self->[6] ||= $RESPONSE_HEADERS =~ /\015?\012Content-Length: (\d+)/i && $1
553 0 0 0 $HTTP2FS_error{$code} || &Errno::ENOSYS
560 0 0 0 $HTTP2FS_error{$code} || &Errno::ENOSYS
632 0 0 0 $self->[7] ||= $Proto2Port{$self->[1]}
641 0 0 0 $ENV{'HTTPS_PROXY'} || $ENV{'HTTP_PROXY'}
645 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
660 0 0 0 $self->[7] ||= $Proto2Port{$self->[1]}
821 0 0 0 $self->[18][7] ||= $self->[6]
822 0 0 0 $self->[18][9] ||= $self->_mtime
830 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; } }