| line |
true |
false |
branch |
|
24
|
0 |
86 |
unless defined $param{'listen'}{'LocalPort'} |
|
29
|
1 |
85 |
unless $obj{'_socket'} = "IO::Socket::IP"->new("Listen", 5, "Reuse", 1, %{$param{"listen"};}) |
|
33
|
0 |
85 |
unless $obj{'_context'} = "IO::Socket::SSL::SSL_Context"->new(%{$param{"context"};}, "SSL_server", 1) |
|
49
|
0 |
204 |
unless (my $client = $server->accept) |
|
53
|
0 |
204 |
if ($param{'close_on_accept'}) |
|
58
|
0 |
204 |
unless defined $parent |
|
59
|
175 |
29 |
if ($parent) |
|
63
|
29 |
0 |
unless ($param{'no_ssl'}) |
|
64
|
1 |
28 |
unless ("IO::Socket::SSL"->start_SSL($client, "SSL_server", 1, "SSL_reuse_ctx", $self->{'_context'})) |
|
76
|
0 |
28 |
if ($param{'close_before_read'}) |
|
92
|
1 |
27 |
unless (eval {
do {
&$callback($client, $n, $buf);
1
}
}) |