| line |
true |
false |
branch |
|
3
|
0 |
1 |
if $] < 5.006 |
|
185
|
1 |
6 |
if _checkHashKeys(%moduleInput) |
|
188
|
1 |
5 |
unless $moduleInput{-'ip'} |
|
190
|
1 |
4 |
unless $moduleInput{-'port'} |
|
192
|
0 |
4 |
if _verifyPort($moduleInput{-'port'}) |
|
197
|
0 |
0 |
unless defined $array_IP[0] and defined $array_IP[1] and defined $array_IP[2] and defined $array_IP[3] |
|
208
|
0 |
0 |
unless $server_socket = 'IO::Socket::INET'->new('LocalAddr', $moduleInput{-'ip'} || '127.0.0.1', 'LocalPort', $moduleInput{-'port'}, 'Proto', 'udp', 'Type', 2, 'Broadcast', 1) |
|
212
|
0 |
0 |
if $@ and $@ =~ /Error Creating Socket/ |
|
237
|
0 |
0 |
if ($peer_address) |
|
238
|
0 |
0 |
if ($peer_port) |
|
245
|
0 |
0 |
unless $server_socket->recv($rcv_sntp_packet, 512) |
|
248
|
0 |
0 |
if $@ and $@ =~ /Error Receiving/ |
|
259
|
0 |
0 |
if (not defined $ntpdate_tmp[0] or index($ntpdate_tmp[0], 'ntpdc') != -1) { } |
|
288
|
0 |
0 |
unless $server_socket->send($send_sntp_packet) |
|
291
|
0 |
0 |
if $@ and $@ =~ /Error Sending/ |
|
353
|
1 |
6 |
if (@differendKeys) { } |
|
365
|
0 |
4 |
unless defined $port |
|
366
|
4 |
0 |
unless (_verifyNumericInput($port)) |
|
367
|
4 |
0 |
if ($port >= 1 and 65536 >= $port) |
|
376
|
0 |
4 |
unless defined $numericInput |
|
377
|
4 |
0 |
if (defined $numericInput and $numericInput =~ /^[0-9]+$/ and $numericInput > 0) |