blib/lib/Net/Server/Proto/UDP.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 4 | 12 | 33.3 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
42 | 0 | 10 | 0 | $Net::Server::Proto::TCP::ISA[0] eq 'IO::Socket::INET' and 'Net::Server::Proto'->requires_ipv6($server) |
89 | 1 | 0 | 0 | $port eq 0 and $port = $sock->sockport |
1 | 0 | 0 | $port =~ /\D/ and $port = $sock->sockport |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
44 | 0 | 10 | 0 | $server->{'server'}{'udp_args'} ||= do { my(%temp) = map({$_, undef;} @udp_args); $server->configure({map({$_, \$temp{$_};} @udp_args)}); \%temp } |