| blib/lib/Net/Server/Proto/SSL.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 6 | 38 | 15.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 113 | 1 | 0 | 0 | $port eq 0 and $port = $sock->sockport |
| 1 | 0 | 0 | $port =~ /\D/ and $port = $sock->sockport | |
| 233 | 0 | 0 | 0 | defined $bytes and length $content >= $bytes |
| 0 | 0 | 0 | defined $end_qr and $content =~ /$end_qr/ |
| line | l | !l | condition |
|---|---|---|---|
| 219 | 1 | 0 | delete do { *$client }->{'_parent_sock'} || die("Could not get handshake from accept\n") |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 58 | 0 | 2 | 0 | $server->{'server'}{'ssl_args'} ||= do { my(%temp) = map({$_, undef;} @ssl_args); $server->configure({map({$_, \$temp{$_};} @ssl_args)}); \%temp } |
| 108 | 1 | 0 | 0 | $sock->isa('IO::Socket::IP') || $sock->isa('IO::Socket::INET6') |
| 135 | 0 | 0 | 0 | $sock->isa("IO::Socket::IP") or $sock->isa("IO::Socket::INET6") |
| 156 | 0 | 0 | 0 | $class || ref $sock |
| 158 | 0 | 0 | 0 | $class || ref $sock |
| 161 | 0 | 0 | 0 | $class || ref $sock |
| 163 | 0 | 1 | 0 | $class || ref $sock |
| 225 | 0 | 0 | 0 | defined $bytes or defined $end_qr |