| 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) |
|
93
|
0 |
0 |
unless $socket->mcast_send($query, "$self->{'address'}:$self->{'port'}") |
|
98
|
0 |
0 |
unless @ready |
|
102
|
0 |
0 |
if $data =~ m[^HTTP/1\.1 200 OK\r\n]u |
|
125
|
0 |
0 |
if defined $device->{'support'} |
|
128
|
0 |
0 |
unless grep {$device->{'id'} eq $_->{'id'};} @{$$self{'devices'};} |