| line |
true |
false |
branch |
|
18
|
0 |
3 |
if $self->on_http_response |
|
20
|
3 |
0 |
if ($headers->{'Status'} =~ /^[23]../) { } |
|
34
|
0 |
3 |
if (my $h = $headers->{'content-encoding'}) |
|
38
|
0 |
0 |
unless $ce |
|
39
|
0 |
0 |
if $ce eq "identity" or $ce eq "none" |
|
40
|
0 |
0 |
if ($ce eq 'gzip' or $ce eq 'x-gzip') { } |
|
|
0 |
0 |
elsif ($ce eq 'x-bzip2' or $ce eq 'bzip2') { } |
|
|
0 |
0 |
elsif ($ce eq 'deflate') { } |
|
|
0 |
0 |
elsif ($ce eq 'compress' or $ce eq 'x-compress') { } |
|
|
0 |
0 |
elsif ($ce eq 'base64') { } |
|
|
0 |
0 |
elsif ($ce eq 'quoted-printable') { } |
|
43
|
0 |
0 |
unless IO::Uncompress::Gunzip::gunzip($content_ref, \$output, "Transparent", 0) |
|
51
|
0 |
0 |
unless IO::Uncompress::Bunzip2::bunzip2($content_ref, \$output, "Transparent", 0) |
|
61
|
0 |
0 |
unless ($status) |
|
68
|
0 |
0 |
unless (IO::Uncompress::RawInflate::rawinflate($content_ref, \$output)) |
|
74
|
0 |
0 |
unless defined $output |
|
101
|
0 |
0 |
if (exists $args->{'headers'}) |
|
103
|
0 |
0 |
unless $args->{'headers'} |
|
109
|
0 |
0 |
if (-e $outfile and my $mtime = (stat $outfile)[9]) |
|
115
|
0 |
0 |
unless sysopen my $fh, $tempfile, 193 |
|
120
|
0 |
0 |
unless close $fh |
|
123
|
0 |
0 |
if ($response_f->is_success) |
|
125
|
0 |
0 |
unless rename $tempfile, $outfile |
|
128
|
0 |
0 |
if ($lm and my $mtime = $self->_parse_http_date($lm)) |