Branch Coverage

inc/HTTP/Response.pm
Criterion Covered Total %
branch 1 78 1.2


line true false branch
26 0 0 if ($str =~ s/^(.*)\n//) { }
36 0 0 if ($status_line =~ /^\d{3} /) { }
42 0 0 if $protocol
43 0 0 if defined $code
44 0 0 if defined $message
55 0 0 if $self->request
84 0 0 if ($base and $base =~ /^$URI::scheme_re:/o)
90 0 0 if ($req)
109 23 0 unless wantarray
120 0 0 if ($cd)
122 0 0 if (my(@cd) = HTTP::Headers::Util::split_header_words($cd))
127 0 0 if ($file and $file =~ /^=\?(.+?)\?(.+?)\?(.+)\?=$/)
132 0 0 if ($encoding eq 'Q' or $encoding eq 'B')
135 0 0 if ($encoding eq 'Q') { }
150 0 0 unless $@
156 0 0 unless (defined $file and length $file)
158 0 0 if (my $cl = $self->header('Content-Location')) { }
0 0 elsif (my $request = $self->request) { }
165 0 0 if ($uri)
170 0 0 if ($file)
174 0 0 if ($file and not length $file)
186 0 0 unless defined $eol
190 0 0 if $proto
202 0 0 if $proto
247 0 0 if ($response_time and $date)
249 0 0 if $age < 0
253 0 0 if ($age_v and $age_v > $age)
257 0 0 if ($response_time)
259 0 0 if ($request)
261 0 0 if ($request_time and $request_time < $response_time)
279 0 0 if $cc_dir =~ /^max-age\s*=\s*(\d+)/i
285 0 0 if (my $expires = $self->expires)
290 0 0 if exists $opt{'heuristic_expiry'} and not $opt{'heuristic_expiry'}
302 0 0 if (my $last_modified = $self->last_modified)
304 0 0 if $h_exp < $opt{'h_min'}
305 0 0 if $h_exp > $opt{'h_max'}
310 0 0 if $opt{'h_min'} > $opt{'h_default'}
320 0 0 unless defined $f
330 0 0 unless defined $f