Branch Coverage

blib/lib/HTTP/Lint.pm
Criterion Covered Total %
branch 38 58 65.5


line true false branch
83 0 7 unless blessed $message
84 7 0 if ($message->isa('HTTP::Response'))
86 7 0 if ($message->request)
91 7 0 if ($message->isa('HTTP::Request'))
112 1 6 if $request->method =~ /^(GET|HEAD|DELETE)$/ and $request->content
115 1 6 if ($request->protocol || 'HTTP/1.0') eq 'HTTP/1.1' and not defined $request->header('Host')
118 1 6 unless $request->header('Accept')
137 0 7 if defined $response->content_length and $response->content_length != length $response->content
140 2 1 if ($response->protocol || 'HTTP/1.0') eq 'HTTP/1.1' and not $response->code == 204 and not $response->code == 304 and not defined $response->content_length and ($response->header('Transfer-Encoding') || '') ne 'chunked'
146 1 6 if $response->content and not defined $response->header('Content-Type')
149 0 7 if $response->content and $response->code =~ /^[23]04$/
152 1 6 if $response->code =~ /^(201|3\d\d)$/ and not defined $response->header('Location')
155 1 6 if $response->code == 401 and not defined $response->header('WWW-Authenticate')
158 0 7 if $response->code == 407 and not defined $response->header('Proxy-Authenticate')
161 1 6 if $response->code == 503 and not defined $response->header('Retry-After')
164 0 7 if defined $response->header('Refresh')
166 2 5 if $response->code == 405 and not defined $response->header('Allow')
169 0 0 if $response->code eq 206 and not $response->header('Content-Range') and !($response->header('Content-Type') || '') eq 'multipart/byteranges'
173 3 4 if $response->code =~ /^2\d\d$/ and not $response->header('Date')
194 1 6 if ($request->protocol || 'HTTP/1.0') eq 'HTTP/1.0' and ($response->protocol || 'HTTP/1.0') eq 'HTTP/1.1'
197 1 6 if $request->method =~ /^(GET|HEAD|TRACE|OPTIONS)$/ and $response->code == 201
200 1 6 if $request->method eq 'HEAD' and $response->content
203 0 7 if $request->method eq 'TRACE' and ($response->header('Content-Type') || '') ne 'message/http'
206 0 7 if $response->code eq 206 and not defined $request->header('Range')
209 0 7 if $response->code eq 411 and $request->header('Content-Length')
212 0 7 if $response->code eq 416 and not $request->header('Range')
227 0 0 unless $self->isa('HTTP::Lint::Message')
231 0 0 ref $self eq 'HTTP::Lint::Error' ? :
0 0 @{$$self[1];} ? :