| line |
true |
false |
branch |
|
8
|
1 |
9 |
unless (ref $env || '') eq 'HASH' |
|
12
|
0 |
9 |
unless length $chunk |
|
15
|
9 |
0 |
if ($chunk =~ /^(.*?\x0d?\x0a\x0d?\x0a)/s) |
|
34
|
2 |
7 |
if (/^[ \t]+/) { } |
|
35
|
0 |
2 |
unless @out |
|
47
|
0 |
9 |
unless $http and $http =~ m[^HTTP/1\.(\d+)$] |
|
52
|
1 |
8 |
if ($path =~ /%(?:[0-9a-f][^0-9a-f]|[^0-9a-f][0-9a-f])/i) |
|
56
|
1 |
7 |
if ($path =~ /%(?:[0-9a-f])$/i) |
|
72
|
7 |
0 |
if ($header =~ s/^($token): ?//) { } |
|
|
0 |
0 |
elsif ($header =~ /^\s+/) { } |
|
77
|
5 |
2 |
unless ($k =~ /^(?:CONTENT_LENGTH|CONTENT_TYPE)$/) |
|
86
|
2 |
5 |
if (exists $$env{$k}) { } |
|
106
|
0 |
37 |
unless $str |
|
112
|
1 |
36 |
unless $proto =~ m[^HTTP/1.(\d)] |
|
114
|
0 |
36 |
unless $rc =~ /^\d+$/ |
|
119
|
0 |
36 |
unless $parser_func |
|
123
|
2 |
0 |
unless $str =~ /\r?\n\r?\n/ or $remain =~ /\r?\n\r?\n/ or defined $content |
|
124
|
30 |
4 |
defined $content ? : |
|
132
|
0 |
8 |
unless defined $str |
|
133
|
8 |
0 |
unless keys %$special |
|
137
|
0 |
0 |
if (defined $field) |
|
138
|
0 |
0 |
if (ord $_ == 9 or ord $_ == 32) |
|
143
|
0 |
0 |
if exists $$special{$f} |
|
147
|
0 |
0 |
if (defined $field) |
|
149
|
0 |
0 |
if exists $$special{$f} |
|
156
|
0 |
8 |
unless defined $str |
|
160
|
5 |
7 |
if (defined $field) |
|
161
|
1 |
4 |
if (ord $_ == 9 or ord $_ == 32) |
|
167
|
0 |
4 |
if exists $$special{$f} |
|
171
|
7 |
1 |
if (defined $field) |
|
174
|
0 |
7 |
if exists $$special{$f} |
|
182
|
1 |
19 |
unless defined $str |
|
186
|
14 |
17 |
if (defined $field) |
|
187
|
3 |
11 |
if (ord $_ == 9 or ord $_ == 32) |
|
192
|
0 |
11 |
if (defined $self{$f}) { } |
|
194
|
0 |
0 |
ref $h eq 'ARRAY' ? : |
|
202
|
17 |
2 |
if (defined $field) |
|
204
|
3 |
14 |
if (defined $self{$f}) { } |
|
206
|
0 |
3 |
ref $h eq 'ARRAY' ? : |