| line |
true |
false |
branch |
|
22
|
0 |
74 |
unless defined $param{'listen'}{'LocalPort'} |
|
28
|
1 |
73 |
unless $obj{'_socket'} = $ioclass->new("Listen", 5, "Reuse", 1, %{$param{"listen"};}, "SSL_startHandshake", 0) |
|
33
|
0 |
73 |
unless $obj{'_context'} = "IO::Socket::SSL::SSL_Context"->new(%{$param{"context"};}, "SSL_server", 1) |
|
48
|
0 |
138 |
unless (my $client = $server->accept) |
|
52
|
0 |
138 |
if ($param{'close_on_accept'}) |
|
57
|
0 |
138 |
unless defined $parent |
|
58
|
120 |
18 |
if ($parent) |
|
62
|
18 |
0 |
unless ($param{'no_ssl'}) |
|
63
|
0 |
18 |
unless ("IO::Socket::SSL"->start_SSL($client, "SSL_server", 1, "SSL_reuse_ctx", $self->{'_context'})) |
|
75
|
0 |
18 |
if ($param{'close_before_read'}) |
|
91
|
1 |
17 |
unless (eval {
do {
&$callback($client, $n, $buf);
1
}
}) |