| line |
true |
false |
branch |
|
28
|
0 |
3 |
unless eval {
do {
require Net::SSLeay;
1
}
} |
|
33
|
0 |
3 |
unless eval {
do {
[3, 4, 2048]
}
} |
|
53
|
7 |
14 |
if @_ |
|
54
|
7 |
12 |
if @_ |
|
55
|
7 |
12 |
if @_ |
|
56
|
5 |
5 |
if @_ |
|
68
|
0 |
5 |
if $ISA[0] eq "IO::Socket::INET" and "Net::Server::Proto"->requires_ipv6($server) |
|
77
|
1 |
3 |
defined $server->{'server'}{'listen'} ? : |
|
|
1 |
4 |
defined $info->{'listen'} ? : |
|
79
|
0 |
5 |
if defined $info->{'orig_port'} |
|
84
|
3 |
41 |
$server->can($key) ? : |
|
|
5 |
44 |
defined $ssl->{$key} ? : |
|
|
1 |
49 |
defined $info->{$key} ? : |
|
86
|
41 |
9 |
unless defined $val |
|
87
|
9 |
0 |
if defined $val |
|
90
|
5 |
0 |
wantarray ? : |
|
104
|
0 |
2 |
'Net::Server::Proto'->requires_ipv6($server) ? : |
|
106
|
2 |
0 |
$host ne '*' ? : |
|
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
|
0 |
2 |
$isa_v6 ? : |
|
|
0 |
2 |
unless $sock->SUPER::configure({"LocalPort", $port, "Proto", "tcp", "Listen", $lstn, "ReuseAddr", 1, "Reuse", 1, $host ne "*" ? ("LocalAddr", $host) : (), $isa_v6 ? ("Domain", $ipv eq 6 ? Socket6::AF_INET6() : ($ipv eq 4 ? 2 : 0)) : ()}) |
|
116
|
0 |
2 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
4 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
132
|
0 |
0 |
unless my $resp = $sock->fdopen($fd, "w") |
|
134
|
0 |
0 |
'Net::Server::Proto'->requires_ipv6($server) ? : |
|
135
|
0 |
0 |
if ($isa_v6) |
|
137
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
142
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
171
|
1 |
0 |
if ($sock->SSLeay_is_client) { } |
|
183
|
0 |
2 |
if (wantarray) { } |
|
188
|
2 |
0 |
if (defined $client) |
|
197
|
0 |
2 |
wantarray ? : |
|
208
|
2 |
7 |
unless (exists do {
*$client
}->{'SSLeay'}) |
|
209
|
0 |
2 |
unless $client->SSLeay_is_client |
|
214
|
0 |
2 |
unless fcntl $client, 4, $f | 2048 |
|
222
|
2 |
7 |
unless defined wantarray |
|
228
|
0 |
17 |
if (my $err = $client->SSLeay_check_error($msg, 1)) |
|
240
|
0 |
28 |
if (@err) |
|
242
|
0 |
0 |
$fatal ? : |
|
|
0 |
0 |
if $cb |
|
256
|
1 |
0 |
unless defined $content |
|
261
|
1 |
1 |
if (not length $content) { } |
|
|
0 |
1 |
elsif (defined $bytes and length $content >= $bytes) { } |
|
|
1 |
0 |
elsif (defined $end_qr and $content =~ /$end_qr/g) { } |
|
283
|
0 |
2 |
if $non_greedy and $bytes - length($content) < $n |
|
285
|
0 |
2 |
if ($client->SSLeay_check_error("SSLeay read_until read")) |
|
289
|
1 |
1 |
unless (defined $buf) |
|
291
|
0 |
0 |
if $!{'EAGAIN'} or $!{'EINTR'} or $!{'ENOBUFS'} |
|
294
|
0 |
0 |
if $rv and $rv == Net::SSLeay::ERROR_WANT_READ() || $rv == Net::SSLeay::ERROR_WANT_WRITE() |
|
299
|
0 |
1 |
if (not length $buf) { } |
|
300
|
0 |
0 |
if not length $buf and $n_empty++ |
|
304
|
0 |
1 |
if ($non_greedy and length $content == $bytes) |
|
311
|
1 |
0 |
wantarray ? : |
|
317
|
0 |
0 |
unless defined $_[1] |
|
318
|
0 |
0 |
defined $buf ? : |
|
324
|
0 |
2 |
unless defined $length |
|
325
|
0 |
2 |
unless defined $offset |
|
329
|
1 |
1 |
if $!{'EAGAIN'} or $!{'EINTR'} |
|
331
|
0 |
1 |
unless defined $data |
|
334
|
0 |
1 |
unless defined $buf |
|
336
|
0 |
1 |
if ($offset > length $$buf) |
|
350
|
1 |
0 |
unless defined $length |
|
351
|
1 |
0 |
unless defined $offset |
|
356
|
0 |
1 |
if $!{'EAGAIN'} or $!{'EINTR'} |
|
357
|
0 |
1 |
if ($write < 0) |
|
377
|
0 |
0 |
if $ok != 1 |
|
385
|
1 |
1 |
@_ == 1 ? : |
|
392
|
0 |
9 |
if $client->SSLeay_check_error("SSLeay write") |
|
393
|
0 |
0 |
if ($write == -1 and not $!{'EAGAIN'} and not $!{'EINTR'} and not $!{'ENOBUFS'}) |
|
397
|
2 |
7 |
if $write > 0 |
|
415
|
0 |
0 |
if @_ |
|
422
|
0 |
0 |
if ($whence) |
|
427
|
0 |
0 |
if ($n != $pos) |
|
443
|
0 |
3 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
457
|
7 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
458
|
0 |
7 |
unless $prop =~ /^(SSLeay_context|SSLeay_is_client|SSL_\w+)$/ |
|
464
|
15 |
17 |
if (@_) { } |
|
466
|
0 |
15 |
if not defined do {
*$sock
}->{$prop} |