| line |
true |
false |
branch |
|
26
|
1 |
4 |
if $^W and not defined $str |
|
28
|
3 |
2 |
if (defined $str and $str =~ s/^(.*)\n//) { } |
|
36
|
3 |
2 |
if defined $status_line |
|
39
|
3 |
2 |
if (defined $status_line) |
|
41
|
1 |
2 |
if ($status_line =~ /^\d{3} /) { } |
|
47
|
2 |
1 |
if $protocol |
|
48
|
3 |
0 |
if defined $code |
|
49
|
3 |
0 |
if defined $message |
|
61
|
1 |
1 |
if $self->request |
|
89
|
1 |
6 |
if ($base and $base =~ /^$URI::scheme_re:/o) |
|
95
|
5 |
1 |
if ($req) |
|
114
|
3 |
1 |
unless wantarray |
|
125
|
7 |
3 |
if ($cd) |
|
127
|
7 |
0 |
if (my(@cd) = HTTP::Headers::Util::split_header_words($cd)) |
|
132
|
4 |
3 |
if ($file and $file =~ /^=\?(.+?)\?(.+?)\?(.+)\?=$/) |
|
137
|
3 |
1 |
if ($encoding eq "Q" or $encoding eq "B") |
|
140
|
1 |
2 |
if ($encoding eq 'Q') { } |
|
155
|
2 |
1 |
unless $@ |
|
161
|
5 |
5 |
unless (defined $file and length $file) |
|
163
|
1 |
4 |
if (my $cl = $self->header('Content-Location')) { } |
|
|
3 |
1 |
elsif (my $request = $self->request) { } |
|
170
|
2 |
3 |
if ($uri) |
|
175
|
7 |
3 |
if ($file) |
|
179
|
0 |
10 |
if ($file and not length $file) |
|
191
|
5 |
2 |
unless defined $eol |
|
195
|
1 |
6 |
if $proto |
|
207
|
1 |
1 |
if $proto |
|
254
|
9 |
4 |
if ($response_time and $date) |
|
256
|
3 |
6 |
if $age < 0 |
|
260
|
4 |
9 |
if ($age_v and $age_v > $age) |
|
264
|
10 |
3 |
if ($response_time) |
|
266
|
8 |
2 |
if ($request) |
|
268
|
6 |
2 |
if ($request_time and $request_time < $response_time) |
|
286
|
3 |
3 |
if $cc_dir =~ /^max-age\s*=\s*(\d+)/i |
|
292
|
1 |
20 |
if (my $expires = $self->expires) |
|
297
|
4 |
16 |
if exists $opt{'heuristic_expiry'} and not $opt{'heuristic_expiry'} |
|
309
|
12 |
4 |
if (my $last_modified = $self->last_modified) |
|
311
|
2 |
10 |
if $h_exp < $opt{'h_min'} |
|
312
|
8 |
2 |
if $h_exp > $opt{'h_max'} |
|
317
|
1 |
3 |
if $opt{'h_min'} > $opt{'h_default'} |
|
327
|
1 |
2 |
unless defined $f |
|
337
|
1 |
4 |
unless defined $f |