| line |
true |
false |
branch |
|
20
|
0 |
3 |
if $self->on_http_response |
|
22
|
3 |
0 |
if ($headers->{'Status'} =~ /^[23]../) { } |
|
36
|
0 |
3 |
if (my $h = $headers->{'content-encoding'}) |
|
40
|
0 |
0 |
unless $ce |
|
41
|
0 |
0 |
if $ce eq "identity" or $ce eq "none" |
|
42
|
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') { } |
|
45
|
0 |
0 |
unless IO::Uncompress::Gunzip::gunzip($content_ref, \$output, "Transparent", 0) |
|
53
|
0 |
0 |
unless IO::Uncompress::Bunzip2::bunzip2($content_ref, \$output, "Transparent", 0) |
|
63
|
0 |
0 |
unless ($status) |
|
70
|
0 |
0 |
unless (IO::Uncompress::RawInflate::rawinflate($content_ref, \$output)) |
|
76
|
0 |
0 |
unless defined $output |
|
103
|
0 |
0 |
if (exists $args->{'headers'}) |
|
105
|
0 |
0 |
unless $args->{'headers'} |
|
111
|
0 |
0 |
if (-e $outfile and my $mtime = (stat $outfile)[9]) |
|
117
|
0 |
0 |
unless sysopen my $fh, $tempfile, 193 |
|
122
|
0 |
0 |
unless close $fh |
|
125
|
0 |
0 |
if ($response_f->is_success) |
|
127
|
0 |
0 |
unless rename $tempfile, $outfile |
|
130
|
0 |
0 |
if ($lm and my $mtime = $self->_parse_http_date($lm)) |