| 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) } |