| blib/lib/Net/Server/Proto/UDP.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 9 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 84 | 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 |
|---|---|---|---|---|
| 41 | 0 | 11 | 0 | $server->{'server'}{'udp_args'} ||= do { my(%temp) = map({$_, undef;} @udp_args); $server->configure({map({$_, \$temp{$_};} @udp_args)}); \%temp } |