| blib/lib/Net/Server/Proto/SSLEAY.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 20 | 64 | 31.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 68 | 0 | 5 | 0 | $ISA[0] eq "IO::Socket::INET" and "Net::Server::Proto"->requires_ipv6($server) |
| 116 | 2 | 0 | 0 | $port eq 0 and $port = $sock->sockport |
| 2 | 0 | 0 | $port =~ /\D/ and $port = $sock->sockport | |
| 261 | 1 | 0 | 0 | defined $bytes and length $content >= $bytes |
| 0 | 0 | 1 | defined $end_qr and $content =~ /$end_qr/g | |
| 283 | 2 | 0 | 0 | $non_greedy and $bytes - length($content) < $n |
| 294 | 0 | 0 | 0 | $rv and $rv == Net::SSLeay::ERROR_WANT_READ() || $rv == Net::SSLeay::ERROR_WANT_WRITE() |
| 300 | 0 | 0 | 0 | not length $buf and $n_empty++ |
| 304 | 1 | 0 | 0 | $non_greedy and length $content == $bytes |
| 393 | 2 | 7 | 0 | $write == -1 and not $!{'EAGAIN'} |
| 9 | 0 | 0 | $write == -1 and not $!{'EAGAIN'} and not $!{'EINTR'} | |
| 7 | 0 | 0 | $write == -1 and not $!{'EAGAIN'} and not $!{'EINTR'} and not $!{'ENOBUFS'} |
| line | l | !l | condition |
|---|---|---|---|
| 162 | 2 | 0 | $sock->SSL_key_file || die('SSLeay missing SSL_key_file on ' . $sock->hup_string . ".\n") |
| 163 | 2 | 0 | $sock->SSL_cert_file || die('SSLeay missing SSL_cert_file on ' . $sock->hup_string > ".\n") |
| 213 | 2 | 0 | fcntl($client, 3, 0) || die("SSLeay - fcntl get: $!\n") |
| 318 | 0 | 0 | $offset || 0 |
| 415 | 0 | 0 | $_[1] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 61 | 1 | 4 | 0 | $server->{'server'}{'ssl_args'} ||= do { my(%temp) = map({$_, undef;} @ssl_args); $server->configure({map({$_, \$temp{$_};} @ssl_args)}); \%temp } |
| 291 | 1 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} |
| 0 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} or $!{'ENOBUFS'} | |
| 294 | 0 | 0 | 0 | $rv == Net::SSLeay::ERROR_WANT_READ() || $rv == Net::SSLeay::ERROR_WANT_WRITE() |
| 329 | 1 | 0 | 1 | $!{'EAGAIN'} or $!{'EINTR'} |
| 356 | 0 | 0 | 1 | $!{'EAGAIN'} or $!{'EINTR'} |