| line |
true |
false |
branch |
|
29
|
0 |
3 |
unless eval {
do {
require Net::SSLeay;
1
}
} |
|
33
|
15 |
0 |
if $subref |
|
35
|
0 |
3 |
unless eval {
do {
[3, 4, 2048]
}
} |
|
54
|
11 |
27 |
if @_ |
|
55
|
11 |
18 |
if @_ |
|
56
|
11 |
18 |
if @_ |
|
57
|
7 |
7 |
if @_ |
|
73
|
1 |
5 |
defined $server->{'server'}{'listen'} ? : |
|
|
1 |
6 |
defined $info->{'listen'} ? : |
|
75
|
0 |
7 |
if defined $info->{'orig_port'} |
|
80
|
3 |
57 |
$server->can($key) ? : |
|
|
9 |
60 |
defined $ssl->{$key} ? : |
|
|
1 |
69 |
defined $info->{$key} ? : |
|
82
|
57 |
13 |
unless defined $val |
|
83
|
13 |
0 |
if defined $val |
|
100
|
4 |
0 |
$ipv eq '4' ? : |
|
|
0 |
4 |
$ipv eq '6' ? : |
|
|
4 |
0 |
$host ne '*' ? : |
|
|
0 |
4 |
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) : ()}) |
|
110
|
0 |
4 |
if ($port eq '0' and $port = $sock->sockport) { } |
|
|
0 |
8 |
elsif ($port =~ /\D/ and $port = $sock->sockport) { } |
|
126
|
0 |
0 |
unless my $resp = $sock->fdopen($fd, "w") |
|
129
|
0 |
0 |
$ipv eq '4' ? : |
|
|
0 |
0 |
$ipv eq '6' ? : |
|
133
|
0 |
0 |
if ($port ne $sock->NS_port) |
|
162
|
3 |
0 |
if ($sock->SSLeay_is_client) { } |
|
163
|
3 |
0 |
if (my $ssl = do {
*$sock
}->{'SSLeay'}) |
|
165
|
0 |
3 |
unless &Net::SSLeay::is_init_finished($ssl) |
|
166
|
3 |
0 |
if $should_shutdown |
|
179
|
0 |
4 |
if (wantarray) { } |
|
184
|
4 |
0 |
if (defined $client) |
|
193
|
0 |
4 |
wantarray ? : |
|
204
|
4 |
19 |
unless (exists do {
*$client
}->{'SSLeay'}) |
|
205
|
0 |
4 |
unless $client->SSLeay_is_client |
|
210
|
0 |
4 |
unless fcntl $client, 4, $f | 2048 |
|
218
|
4 |
19 |
unless defined wantarray |
|
224
|
0 |
35 |
if (my $err = $client->SSLeay_check_error($msg, 1)) |
|
236
|
0 |
35 |
if (@err) |
|
238
|
0 |
0 |
$fatal ? : |
|
|
0 |
0 |
if $cb |
|
253
|
8 |
0 |
if (my $ssl = do {
*$client
}->{'SSLeay'} and my $fn = $client->fileno) |
|
255
|
0 |
8 |
unless $err |
|
257
|
8 |
0 |
if ($err == Net::SSLeay::ERROR_WANT_READ()) |
|
261
|
0 |
0 |
if ($err == Net::SSLeay::ERROR_WANT_WRITE()) |
|
265
|
0 |
0 |
if $!{'EAGAIN'} or $!{'EINTR'} or $!{'ENOBUFS'} |
|
268
|
0 |
0 |
unless $perm |
|
272
|
0 |
0 |
if (my $cb = $client->SSL_error_callback) |
|
282
|
0 |
6 |
unless my $ssl = $sock && do {
*$sock
}->{'SSLeay'} |
|
283
|
1 |
5 |
if defined do {
*$sock
}->{'SSLeay_buffer'} |
|
293
|
0 |
5 |
if defined $bytes and not $bytes && $bytes =~ /^\d+$/ |
|
301
|
1 |
4 |
unless $client->sysread($content, 16384, length $content) |
|
302
|
4 |
0 |
if (defined $end_qr and $content =~ /$end_qr/g) |
|
306
|
0 |
0 |
if ($bytes and length $content >= $bytes and !$ok || $n > $bytes) |
|
312
|
1 |
3 |
if ($ok and $n and $got > $n) |
|
313
|
1 |
0 |
unless defined do {
*$client
}->{'SSLeay_buffer'} |
|
316
|
3 |
2 |
wantarray ? : |
|
322
|
0 |
1 |
unless defined $_[1] |
|
330
|
0 |
6 |
if not $max or $max < 0 |
|
332
|
6 |
0 |
unless ref $buf |
|
333
|
0 |
6 |
unless my $ssl = $client->SSLeay |
|
336
|
1 |
5 |
if (my $ready = $client->pending) |
|
338
|
0 |
1 |
unless ($buffer_size) |
|
340
|
0 |
0 |
if defined $data |
|
342
|
0 |
1 |
if not $buffer_size and do {
*$client
}->{'_error'} = "SSLEAY failed reading buffer" |
|
349
|
5 |
5 |
if defined $data |
|
350
|
0 |
5 |
if $client->SSLeay_check_perm("SSLEAY sysread") |
|
353
|
0 |
6 |
unless defined $data |
|
355
|
0 |
6 |
if $length > $max |
|
357
|
1 |
5 |
unless defined $$buf |
|
358
|
0 |
6 |
if ($offset > length $$buf) |
|
372
|
1 |
7 |
unless defined $length |
|
380
|
8 |
3 |
if $wrote >= 0 |
|
381
|
0 |
3 |
if $client->SSLeay_check_perm("SSLEAY syswrite") |
|
399
|
0 |
0 |
if $ok != 1 |
|
407
|
0 |
6 |
defined $, ? : |
|
432
|
1 |
6 |
if @_ |
|
436
|
7 |
0 |
if $total >= length $buf |
|
444
|
0 |
0 |
if ($whence) |
|
449
|
0 |
0 |
if ($n != $pos) |
|
465
|
0 |
3 |
defined do {
*$sock
}->{'NS_orig_port'} ? : |
|
479
|
7 |
0 |
$AUTOLOAD =~ /::([^:]+)$/ ? : |
|
480
|
0 |
7 |
unless $prop =~ /^(SSLeay_context|SSLeay_is_client|SSL_\w+)$/ |
|
486
|
25 |
30 |
if (@_) { } |
|
488
|
0 |
25 |
if not defined do {
*$sock
}->{$prop} |