| line |
true |
false |
branch |
|
27
|
0 |
3 |
if (not eval {
do {
local $^W = 0;
require IO::Socket::SSL;
1
}
}) |
|
51
|
3 |
5 |
if @_ |
|
52
|
3 |
5 |
if @_ |
|
53
|
3 |
5 |
if @_ |
|
54
|
2 |
2 |
if @_ |
|
70
|
0 |
2 |
defined $server->{'server'}{'listen'} ? : |
|
|
0 |
2 |
defined $info->{'listen'} ? : |
|
72
|
0 |
2 |
if defined $info->{'orig_port'} |
|
78
|
1 |
21 |
$server->can($key) ? : |
|
|
2 |
22 |
defined $ssl->{$key} ? : |
|
|
0 |
24 |
defined $info->{$key} ? : |
|
80
|
21 |
3 |
unless defined $val |
|
81
|
3 |
0 |
if defined $val |
|
106
|
1 |
0 |
$ipv eq '4' ? : |
|
|
0 |
1 |
$ipv eq '6' ? : |
|
|
1 |
0 |
$host ne '*' ? : |
|
|
0 |
1 |
unless $sock->SUPER::configure({"LocalPort", $port, "Proto", "tcp", "Listen", $lstn, "ReuseAddr", 1, "Reuse", 1, "Family", $ipv eq 6 ? &AF_INET6() : ($ipv eq 4 ? &AF_INET() : &AF_UNSPEC()), $host ne "*" ? ("LocalAddr", $host) : (), map({$_, $sock->$_;} grep({/^SSL_/;} keys %{*$sock;})), "SSL_server", 1, "SSL_startHandshake", 0}) |
|
111
|
0 |
1 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
131
|
0 |
0 |
unless $sock->IO::Socket::INET::fdopen($fd, "w") |
|
134
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
136
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
147
|
0 |
1 |
if ($IO::Socket::SSL::VERSION < 1.994) { } |
|
|
0 |
1 |
elsif (wantarray) { } |
|
148
|
0 |
0 |
$sock->isa('IO::Socket::INET6') ? : |
|
|
0 |
0 |
$sock->isa('IO::Socket::IP') ? : |
|
151
|
0 |
0 |
if (wantarray) { } |
|
163
|
1 |
0 |
if (defined $client) |
|
170
|
0 |
1 |
wantarray ? : |
|
175
|
0 |
1 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
189
|
3 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
190
|
0 |
3 |
unless $prop =~ /^(SSL_\w+)$/ |
|
195
|
3 |
3 |
if (@_) { } |
|
197
|
0 |
3 |
if not defined do {
*$sock
}->{$prop} |
|
209
|
1 |
0 |
if not do {
*$client
}->{'_accept_ssl'} |
|
216
|
0 |
1 |
unless $sock->accept_SSL($client) |
|
221
|
0 |
0 |
unless defined $bytes or defined $end_qr |
|
223
|
0 |
0 |
unless do {
*$client
}->{'_accept_ssl'} |
|
229
|
0 |
0 |
if (defined $bytes and length $content >= $bytes) { } |
|
|
0 |
0 |
elsif (defined $end_qr and $content =~ /$end_qr/) { } |
|
237
|
0 |
0 |
wantarray ? : |