line |
true |
false |
branch |
65
|
0 |
1 |
unless $$self{'CLIENT_SKIP_REGISTER'} |
75
|
0 |
1 |
unless $$self{'CLIENT_SOCKET'} = 'IO::Socket::INET'->new('PeerPort', $$self{'CLIENT_PEER_PORT'} || '9887', 'PeerHost', $$self{'CLIENT_PEER_HOST'} || 'localhost', 'Proto', 'udp', 'Type', 2, 'ReuseAddr', 1) |
124
|
0 |
0 |
if ($$self{'CLIENT_TYPE_REGISTRATION'} eq '0') { } |
|
0 |
0 |
elsif ($$self{'CLIENT_TYPE_REGISTRATION'} eq '2') { } |
172
|
0 |
0 |
if ($notify_args{'priority'} and grep /^$notify_args{'priority'}$/, keys %priority) { } |
179
|
0 |
0 |
if $notify_args{'priority'} |
195
|
0 |
0 |
if ($$self{'CLIENT_TYPE_NOTIFICATION'} eq '1') { } |
|
0 |
0 |
elsif ($$self{'CLIENT_TYPE_NOTIFICATION'} eq '3') { } |
228
|
0 |
0 |
unless $$self{'CLIENT_SOCKET'}->send($packet) |