| blib/lib/Metabrik/Network/Ssdp.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 8 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 0 | unless $self->brik_help_run_undef_arg('discover', $device) |
| 40 | 0 | 0 | unless my $m = 'IO::Socket::Multicast'->new('Proto', 'udp', 'PeerDest', $ssdpAddr, 'PeerPort', $ssdpPort, 'ReuseAddr', 1) |
| 62 | 0 | 0 | unless $m->mcast_send($ssdpSearch, "${ssdpAddr}:$ssdpPort") |
| 65 | 0 | 0 | if ($data and length $data) |