| blib/lib/HTTP/Server/PSGI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 26 | 34.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 69 | 37 | 0 | 0 | $self->{'ssl'} and $self->{'ipv6'} |
| 264 | 37 | 0 | 0 | !defined($ret) && $! == 4 |
| line | l | !l | condition |
|---|---|---|---|
| 55 | 37 | 0 | $args{'host'} || 0 |
| 37 | 0 | $args{'port'} || 8080 | |
| 0 | 37 | $args{'timeout'} || 300 | |
| 0 | 37 | $args{'server_ready'} || sub { } | |
| 82 | 0 | 0 | $self->{'host'} ||= "::" |
| 83 | 0 | 0 | $args->{'LocalAddr'} ||= "::" |
| 130 | 740 | 0 | $conn->peerport || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 55 | 0 | 37 | 0 | $args{'server_software'} || $class |
| 93 | 0 | 37 | 0 | $self->{'listen_sock'} ||= do { my(%args) = ("Listen", 128, "LocalPort", $self->{'port'}, "LocalAddr", $self->{'host'}, "Proto", "tcp", "ReuseAddr", 1); my $class = $self->prepare_socket_class(\%args); die "failed to listen to port $self->{'port'}: $!" unless $class->new(%args) } |