Condition Coverage

blib/lib/lib/http.pm
Criterion Covered Total %
condition 0 143 0.0


and 3 conditions

line !l l&&!r l&&r condition
109 0 0 0 scalar get_head($uri_ver) and not $INC_LIB{$uri_ver}++
134 0 0 0 $tmp and -d $tmp
175 0 0 0 not $@ and defined &Compress::Zlib::memGunzip
210 0 0 0 $code == 200 and $fl_size == $length
0 0 0 $code == 200 and $fl_size == $length and $mdf_time >= $modf
319 0 0 0 %LIBS_IDX and $LIBS_IDX{'dirs'}{"$inc_base$dir"}
322 0 0 0 $inc_base =~ /^\Q$LIBS_IDX{'libs'}{$Key}[0]\E/ and $Key =~ /^\Q$inc_base\E(.*)/
431 0 0 0 time - $URLS{$uri}{'t'} < 60 and $URLS{$uri}{'status'} == 404
438 0 0 0 -s $new_file and $LIBS_IDX{$uri}
445 0 0 0 $LIBS_IDX{$uri} == $fl_size and $idx_time
449 0 0 0 $code == 200 and $fl_size == $length
0 0 0 $code == 200 and $fl_size == $length and $mdf_time >= $modf
455 0 0 0 $ACCEPT_GZIP and not $uri =~ m[(?:\.gz|/)$]i
457 0 0 0 %LIBS_IDX and $LIBS_IDX{$uri_gz}
463 0 0 0 $data eq '' and %LIBS_IDX
468 0 0 0 $has_lib_idx and not $LIBS_IDX{$uri}
513 0 0 0 %LIBS_IDX and $LIBS_IDX{'lib'}{$LIBS_IDX{'libs'}{$_[0]}[0]}
0 0 0 %LIBS_IDX and $LIBS_IDX{'lib'}{$LIBS_IDX{'libs'}{$_[0]}[0]} and not $LIBS_IDX{$_[0]}
526 0 0 0 not $force and time - $URLS{$url}{'t'} < 60
0 0 0 not $force and time - $URLS{$url}{'t'} < 60 and $URLS{$url}{'status'} == 404 || $url =~ m[/$]
593 0 0 0 $ACCEPT_GZIP and $headers =~ /Content-Encoding:\s*gzip/is || $path =~ /\.gz$/i
646 0 0 0 $mon == 2 and $day > 28
686 0 0 0 $year_bisexto == 1 and $mon > 2
808 0 0 0 -d $dir_list_i and -w $dir_list_i
0 0 0 -d $dir_list_i and -w $dir_list_i and -r $dir_list_i
814 0 0 0 not $tmpdir and -w '.'
820 0 0 0 -d $dir and -w $dir
865 0 0 0 $filename ne '.' and $filename ne '..'

or 2 conditions

line l !l condition
418 0 0 get_file($uri, $module) || (return)
617 0 0 inet_aton($host) || (return)
618 0 0 sockaddr_in($port, $iaddr) || (return)
619 0 0 getprotobyname 'tcp' || (return)

or 3 conditions

line l !l&&r !l&&!r condition
321 0 0 0 not $LIBS_IDX{$Key} or $Key =~ /\.gz$/
0 0 0 not $LIBS_IDX{$Key} or $Key =~ /\.gz$/ or not $Key =~ /^\Q$inc_base$dir\E/
402 0 0 0 not $links_i =~ m[(?:\w|/)$] or $links_i =~ m[^(?:mailto:|\?|/)]
476 0 0 0 $data eq '' or $code != 200
526 0 0 0 $URLS{$url}{'status'} == 404 || $url =~ m[/$]
533 0 0 0 $port eq '' or $port == 0
0 0 0 $port eq '' or $port == 0 or not $port =~ /^[\d]+$/
593 0 0 0 $headers =~ /Content-Encoding:\s*gzip/is || $path =~ /\.gz$/i
641 0 0 0 not $year or $year eq '*'
0 0 0 not $year or $year eq '*' or $year < $year_0
646 0 0 0 not $mon or $mon eq '*'
0 0 0 $mon < 1 or $mon > 12
0 0 0 not $day or $day eq '*'
0 0 0 $day < 1 or $day > 31
656 0 0 0 $hour < 0 or $hour > 24
661 0 0 0 $min < 0 or $min > 60
666 0 0 0 $sec < 0 or $sec > 60