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