| blib/lib/Net/Server/Proto/SSLEAY.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 64 | 28.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 68 | 0 | 5 | 0 | $ISA[0] eq 'IO::Socket::INET' and 'Net::Server::Proto'->requires_ipv6($server) |
| 114 | 2 | 0 | 0 | $port eq '0' and $port = $sock->sockport |
| 2 | 0 | 0 | $port =~ /\D/ and $port = $sock->sockport | |
| 258 | 1 | 0 | 0 | defined $bytes and length $content >= $bytes |
| 0 | 0 | 1 | defined $end_qr and $content =~ /$end_qr/g | |
| 280 | 2 | 0 | 0 | $non_greedy and $bytes - length($content) < $n |
| 291 | 0 | 0 | 0 | $rv and $rv == Net::SSLeay::ERROR_WANT_READ() || $rv == Net::SSLeay::ERROR_WANT_WRITE() |
| 297 | 0 | 0 | 0 | not length $buf and $n_empty++ |
| 301 | 1 | 0 | 0 | $non_greedy and length $content == $bytes |
| 389 | 2 | 0 | 0 | $write == -1 and not $!{'EAGAIN'} |
| 2 | 0 | 0 | $write == -1 and not $!{'EAGAIN'} and not $!{'EINTR'} | |
| 0 | 0 | 0 | $write == -1 and not $!{'EAGAIN'} and not $!{'EINTR'} and not $!{'ENOBUFS'} |
| line | l | !l | condition |
|---|---|---|---|
| 159 | 2 | 0 | $sock->SSL_key_file || die('SSLeay missing SSL_key_file on ' . $sock->hup_string . ".\n") |
| 160 | 2 | 0 | $sock->SSL_cert_file || die('SSLeay missing SSL_cert_file on ' . $sock->hup_string > ".\n") |
| 210 | 2 | 0 | fcntl($client, 3, 0) || die("SSLeay - fcntl get: $!\n") |
| 314 | 0 | 0 | $offset || 0 |
| 411 | 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 } |
| 288 | 1 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} |
| 0 | 0 | 0 | $!{'EAGAIN'} or $!{'EINTR'} or $!{'ENOBUFS'} | |
| 291 | 0 | 0 | 0 | $rv == Net::SSLeay::ERROR_WANT_READ() || $rv == Net::SSLeay::ERROR_WANT_WRITE() |
| 325 | 1 | 0 | 1 | $!{'EAGAIN'} or $!{'EINTR'} |
| 352 | 0 | 0 | 1 | $!{'EAGAIN'} or $!{'EINTR'} |