| blib/lib/HTTP/Daemon.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 55 | 32.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 26 | 7 | 1 | 0 | exists $args{$key} and !defined($args{$key}) || $args{$key} eq '' |
| 182 | 5 | 0 | 1 | $conn and lc($conn) =~ /\bclose\b/ |
| 185 | 0 | 0 | 0 | $conn and lc($conn) =~ /\bkeep-alive\b/ |
| 212 | 2 | 0 | 4 | $te and lc $te eq "chunked" |
| 1 | 0 | 0 | $ct and $ct =~ m[^multipart/\w+\s*;.*boundary\s*=\s*("?)(\w+)\1]i | |
| 438 | 6 | 0 | 0 | $res->request and $res->request->method eq "HEAD" |
| 474 | 0 | 0 | 0 | defined $chunk and length $chunk |
| 504 | 0 | 0 | 0 | $content and not $self->head_request |
| line | l | !l | condition |
|---|---|---|---|
| 20 | 0 | 4 | $args{'Listen'} ||= 5 |
| 21 | 0 | 4 | $args{'Proto'} ||= "tcp" |
| 35 | 0 | 6 | shift() || 'HTTP::Daemon::ClientConn' |
| 150 | 6 | 0 | $3 || 'HTTP/0.9' |
| 397 | 6 | 0 | $status ||= 200 |
| 398 | 6 | 0 | &status_message($status) || '' |
| 399 | 6 | 0 | $HTTP::Daemon::PROTO || 'HTTP/1.1' |
| 430 | 0 | 0 | $res ||= 200 |
| 491 | 0 | 0 | $status ||= 301 |
| 510 | 0 | 0 | $status ||= 400 |
| 513 | 0 | 0 | $error ||= "" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 26 | 0 | 0 | 1 | !defined($args{$key}) || $args{$key} eq '' |
| 398 | 0 | 6 | 0 | $message ||= &status_message($status) || '' |
| 399 | 0 | 6 | 0 | $proto ||= $HTTP::Daemon::PROTO || 'HTTP/1.1' |