| 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'};} |