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