| line |
true |
false |
branch |
|
26
|
0 |
3 |
if (not eval {
do {
require IO::Socket::SSL
}
}) |
|
50
|
3 |
5 |
if @_ |
|
51
|
3 |
5 |
if @_ |
|
52
|
3 |
5 |
if @_ |
|
53
|
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 |
|
84
|
2 |
0 |
wantarray ? : |
|
108
|
1 |
0 |
$host ne '*' ? : |
|
|
1 |
0 |
$ipv eq '4' ? : |
|
|
0 |
1 |
$ipv eq '6' ? : |
|
|
1 |
0 |
$sock->isa('IO::Socket::IP') || $sock->isa('IO::Socket::INET6') ? : |
|
|
0 |
1 |
unless $sock->SUPER::configure({"LocalPort", $port, "Proto", "tcp", "Listen", $lstn, "ReuseAddr", 1, "Reuse", 1, $host ne "*" ? ("LocalAddr", $host) : (), $sock->isa('IO::Socket::IP') || $sock->isa('IO::Socket::INET6') ? ("Domain", $ipv eq 6 ? Socket6::AF_INET6() : ($ipv eq 4 ? 2 : 0)) : (), map({$_, $sock->$_;} grep({/^SSL_/;} keys %{*$sock;})), "SSL_server", 1, "SSL_startHandshake", 0}) |
|
113
|
0 |
1 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
133
|
0 |
0 |
unless $sock->IO::Socket::INET::fdopen($fd, "w") |
|
135
|
0 |
0 |
if ($sock->isa("IO::Socket::IP") or $sock->isa("IO::Socket::INET6")) |
|
137
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
140
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
151
|
0 |
1 |
if ($IO::Socket::SSL::VERSION < 1.994) { } |
|
|
0 |
1 |
elsif (wantarray) { } |
|
152
|
0 |
0 |
$sock->isa('IO::Socket::INET6') ? : |
|
|
0 |
0 |
$sock->isa('IO::Socket::IP') ? : |
|
155
|
0 |
0 |
if (wantarray) { } |
|
167
|
1 |
0 |
if (defined $client) |
|
174
|
0 |
1 |
wantarray ? : |
|
179
|
0 |
1 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
193
|
3 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
194
|
0 |
3 |
unless $prop =~ /^(SSL_\w+)$/ |
|
199
|
3 |
3 |
if (@_) { } |
|
201
|
0 |
3 |
if not defined do {
*$sock
}->{$prop} |
|
213
|
1 |
0 |
if not do {
*$client
}->{'_accept_ssl'} |
|
220
|
0 |
1 |
unless $sock->accept_SSL($client) |
|
225
|
0 |
0 |
unless defined $bytes or defined $end_qr |
|
227
|
0 |
0 |
unless do {
*$client
}->{'_accept_ssl'} |
|
233
|
0 |
0 |
if (defined $bytes and length $content >= $bytes) { } |
|
|
0 |
0 |
elsif (defined $end_qr and $content =~ /$end_qr/) { } |
|
241
|
0 |
0 |
wantarray ? : |