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' ? :
|