blib/lib/HTTP/Daemon.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 3 | 55 | 5.4 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
26 | 2 | 0 | 0 | exists $args{$key} and !defined($args{$key}) || $args{$key} eq '' |
182 | 0 | 0 | 0 | $conn and lc($conn) =~ /\bclose\b/ |
185 | 0 | 0 | 0 | $conn and lc($conn) =~ /\bkeep-alive\b/ |
212 | 0 | 0 | 0 | $tr_enc and lc $tr_enc eq "chunked" |
0 | 0 | 0 | $ct_type and $ct_type =~ m[^multipart/\w+\s*;.*boundary\s*=\s*("?)(\w+)\1]i | |
466 | 0 | 0 | 0 | $res->request and $res->request->method eq "HEAD" |
502 | 0 | 0 | 0 | defined $chunk and length $chunk |
532 | 0 | 0 | 0 | $content and not $self->head_request |
line | l | !l | condition |
---|---|---|---|
20 | 0 | 1 | $args{'Listen'} ||= 5 |
21 | 0 | 1 | $args{'Proto'} ||= "tcp" |
35 | 0 | 0 | shift() || 'HTTP::Daemon::ClientConn' |
150 | 0 | 0 | $3 || 'HTTP/0.9' |
425 | 0 | 0 | $status ||= 200 |
426 | 0 | 0 | &status_message($status) || '' |
427 | 0 | 0 | $HTTP::Daemon::PROTO || 'HTTP/1.1' |
458 | 0 | 0 | $res ||= 200 |
519 | 0 | 0 | $status ||= 301 |
538 | 0 | 0 | $status ||= 400 |
541 | 0 | 0 | $error ||= "" |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
26 | 0 | 0 | 0 | !defined($args{$key}) || $args{$key} eq '' |
426 | 0 | 0 | 0 | $message ||= &status_message($status) || '' |
427 | 0 | 0 | 0 | $proto ||= $HTTP::Daemon::PROTO || 'HTTP/1.1' |