| line |
true |
false |
branch |
|
26
|
0 |
3 |
if (not eval {
do {
require IO::Socket::SSL
}
}) |
|
48
|
3 |
5 |
if @_ |
|
49
|
3 |
5 |
if @_ |
|
50
|
3 |
5 |
if @_ |
|
51
|
2 |
2 |
if @_ |
|
68
|
0 |
2 |
defined $server->{'server'}{'listen'} ? : |
|
|
0 |
2 |
defined $info->{'listen'} ? : |
|
70
|
0 |
2 |
if defined $info->{'orig_port'} |
|
76
|
1 |
17 |
$server->can($key) ? : |
|
|
2 |
18 |
defined $ssl->{$key} ? : |
|
|
0 |
20 |
defined $info->{$key} ? : |
|
78
|
17 |
3 |
unless defined $val |
|
79
|
3 |
0 |
if defined $val |
|
82
|
2 |
0 |
wantarray ? : |
|
105
|
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}) |
|
109
|
0 |
1 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
2 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
128
|
0 |
0 |
unless $sock->IO::Socket::INET::fdopen($fd, 'w') |
|
130
|
0 |
0 |
if ($sock->isa('IO::Socket::INET6')) |
|
132
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
135
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
145
|
0 |
1 |
$sock->isa('IO::Socket::INET6') ? : |
|
146
|
0 |
1 |
if (wantarray) { } |
|
153
|
1 |
0 |
if (defined $client) |
|
160
|
0 |
1 |
wantarray ? : |
|
165
|
0 |
1 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
179
|
3 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
180
|
0 |
3 |
unless $prop =~ /^(SSL_\w+)$/ |
|
185
|
3 |
3 |
if (@_) { } |
|
187
|
0 |
3 |
if not defined do {
*$sock
}->{$prop} |
|
199
|
1 |
0 |
if not do {
*$client
}->{'_accept_ssl'} |
|
206
|
0 |
1 |
unless $sock->accept_SSL($client) |
|
211
|
0 |
0 |
unless defined $bytes or defined $end_qr |
|
213
|
0 |
0 |
unless do {
*$client
}->{'_accept_ssl'} |
|
219
|
0 |
0 |
if (defined $bytes and length $content >= $bytes) { } |
|
|
0 |
0 |
elsif (defined $end_qr and $content =~ /$end_qr/) { } |
|
227
|
0 |
0 |
wantarray ? : |