| blib/lib/Net/Server/Proto/SSLEAY.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 30 | 72 | 41.6 |
| line | l | !l | condition |
|---|---|---|---|
| 342 | 1 | 0 | not $buffer_size and do { *$client }->{'_error'} = "SSLEAY failed reading buffer" |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 110 | 4 | 0 | 0 | $port eq 0 and $port = $sock->sockport |
| 4 | 0 | 0 | $port =~ /\D/ and $port = $sock->sockport | |
| 253 | 0 | 0 | 8 | my $ssl = do { *$client }->{'SSLeay'} and my $fn = $client->fileno |
| 282 | 0 | 0 | 6 | $sock && do { *$sock }->{'SSLeay'} |
| 293 | 0 | 0 | 3 | $bytes && $bytes =~ /^\d+$/ |
| 2 | 3 | 0 | defined $bytes and not $bytes && $bytes =~ /^\d+$/ | |
| 302 | 0 | 0 | 4 | defined $end_qr and $content =~ /$end_qr/g |
| 306 | 2 | 2 | 0 | $bytes and length $content >= $bytes |
| 4 | 0 | 0 | $bytes and length $content >= $bytes and !$ok || $n > $bytes | |
| 312 | 1 | 0 | 4 | $ok and $n |
| 1 | 3 | 1 | $ok and $n and $got > $n | |
| 337 | 0 | 0 | 1 | defined do { *$client }->{'SSLeay_buffer'} && length do { *$client }->{'SSLeay_buffer'} |
| 346 | 0 | 1 | 10 | $retries-- > 0 and not defined $data |
| line | l | !l | condition |
|---|---|---|---|
| 153 | 4 | 0 | $sock->SSL_key_file || die('SSLeay missing SSL_key_file on ' . $sock->hup_string . ".\n") |
| 154 | 4 | 0 | $sock->SSL_cert_file || die('SSLeay missing SSL_cert_file on ' . $sock->hup_string > ".\n") |
| 209 | 4 | 0 | fcntl($client, 3, 0) || die("SSLeay - fcntl get: $!\n") |
| 270 | 0 | 0 | $msg ||= "SSL ERROR" |
| 323 | 0 | 1 | $offset || 0 |
| 331 | 0 | 6 | $offset ||= 0 |
| 373 | 0 | 8 | $offset ||= 0 |
| 432 | 0 | 1 | $_[1] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 62 | 3 | 4 | 0 | $server->{'server'}{'ssl_args'} ||= do { my(%temp) = map({$_, undef;} @ssl_args); $server->configure({map({$_, \$temp{$_};} @ssl_args)}); \%temp } |
| 265 | 0 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} |
| 0 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} or $!{'ENOBUFS'} | |
| 306 | 0 | 0 | 0 | !$ok || $n > $bytes |
| 330 | 0 | 0 | 6 | not $max or $max < 0 |