| line |
true |
false |
branch |
|
26
|
0 |
3 |
if (not eval {
do {
require IO::Socket::SSL
}
}) |
|
49
|
3 |
5 |
if @_ |
|
50
|
3 |
5 |
if @_ |
|
51
|
3 |
5 |
if @_ |
|
52
|
2 |
2 |
if @_ |
|
69
|
0 |
2 |
defined $server->{'server'}{'listen'} ? : |
|
|
0 |
2 |
defined $info->{'listen'} ? : |
|
71
|
0 |
2 |
if defined $info->{'orig_port'} |
|
77
|
1 |
19 |
$server->can($key) ? : |
|
|
2 |
20 |
defined $ssl->{$key} ? : |
|
|
0 |
22 |
defined $info->{$key} ? : |
|
79
|
19 |
3 |
unless defined $val |
|
80
|
3 |
0 |
if defined $val |
|
83
|
2 |
0 |
wantarray ? : |
|
106
|
1 |
0 |
$host ne '*' ? : |
|
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
|
0 |
1 |
$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::INET6') ? ('Domain', $ipv eq '6' ? Socket6::AF_INET6() : ($ipv eq '4' ? 2 : 0)) : (), map({$_, $sock->$_;} grep({/^SSL_/;} keys %{*$sock;})), 'SSL_server', 1}) |
|
110
|
0 |
1 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
129
|
0 |
0 |
unless $sock->IO::Socket::INET::fdopen($fd, 'w') |
|
131
|
0 |
0 |
if ($sock->isa('IO::Socket::INET6')) |
|
133
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
136
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
146
|
0 |
1 |
$sock->isa('IO::Socket::INET6') ? : |
|
147
|
0 |
1 |
if (wantarray) { } |
|
154
|
1 |
0 |
if (defined $client) |
|
161
|
0 |
1 |
wantarray ? : |
|
166
|
0 |
1 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
180
|
3 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
181
|
0 |
3 |
unless $prop =~ /^(SSL_\w+)$/ |
|
186
|
3 |
3 |
if (@_) { } |
|
188
|
0 |
3 |
if not defined do {
*$sock
}->{$prop} |
|
200
|
1 |
0 |
if not do {
*$client
}->{'_accept_ssl'} |
|
207
|
0 |
1 |
unless $sock->accept_SSL($client) |
|
212
|
0 |
0 |
unless defined $bytes or defined $end_qr |
|
214
|
0 |
0 |
unless do {
*$client
}->{'_accept_ssl'} |
|
220
|
0 |
0 |
if (defined $bytes and length $content >= $bytes) { } |
|
|
0 |
0 |
elsif (defined $end_qr and $content =~ /$end_qr/) { } |
|
228
|
0 |
0 |
wantarray ? : |