| line |
true |
false |
branch |
|
76
|
0 |
0 |
unless my $socket = "IO::Socket::Multicast"->new("PeerAddr", $self->{'address'}, "PeerPort", $self->{'port'}, "Proto", "udp", "ReuseAddr", 1) |
|
81
|
0 |
0 |
unless my $listen = "IO::Socket::INET"->new("LocalPort", $socket->sockport, "Proto", "udp", "ReuseAddr", 1) |
|
97
|
0 |
0 |
unless $socket->mcast_send($query) |
|
102
|
0 |
0 |
unless @ready |
|
106
|
0 |
0 |
if $data =~ m[^HTTP/1\.1 200 OK\r\n]u |
|
129
|
0 |
0 |
if defined $device->{'support'} |
|
132
|
0 |
0 |
unless grep {$device->{'id'} eq $_->{'id'};} @{$$self{"devices"};} |