| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless open DEBUG, ">$filename" |
|
48
|
0 |
1 |
if defined fileno DEBUG |
|
54
|
0 |
0 |
if defined fileno DEBUG |
|
66
|
0 |
0 |
if scalar @_ == 1 and $_[0] =~ /^\d+$/ and $_[0] > 0 |
|
73
|
0 |
0 |
if scalar @_ == 1 and $_[0] =~ /^\d+$/ and $_[0] >= 0 |
|
80
|
0 |
0 |
if scalar @_ == 1 and $_[0] =~ /^\d+$/ |
|
87
|
0 |
0 |
if scalar @_ == 1 and $_[0] =~ /^\d+$/ |
|
95
|
0 |
0 |
if (scalar @_ == 1 and $_[0] =~ /^[01]$/) |
|
97
|
0 |
0 |
if ($loginOK) |
|
98
|
0 |
0 |
if $inhibit_msgs == 1 |
|
99
|
0 |
0 |
if $inhibit_msgs == 0 |
|
107
|
0 |
0 |
if (scalar @_ == 3 and $_[0] =~ /^\w\S+[:]?\d*$/) |
|
109
|
0 |
0 |
if ($deviceInfo =~ /:/) { } |
|
112
|
0 |
0 |
if ($login and $login =~ /Logged On/i) { } |
|
113
|
0 |
0 |
if ($login =~ /\s+\w+\s+\d\d-\d\d-\d\d\s\d\d:\d\d:\d\d/) |
|
115
|
0 |
0 |
if $inhibit_msgs |
|
126
|
0 |
0 |
if $inhibit_msgs |
|
132
|
0 |
0 |
if ($deviceIP) { } |
|
136
|
0 |
0 |
if substr($command_string, -1) eq ';' |
|
155
|
0 |
0 |
if $debug |
|
166
|
0 |
0 |
if $debug |
|
168
|
0 |
0 |
if ($srcAddr eq $packed_ip and $srcPort == $udpPort) { } |
|
172
|
0 |
0 |
if ($msg =~ /^;$/m) |
|
173
|
0 |
0 |
if ($data =~ /$currentCTAG (COMPLD|DENY).+;/s) { } |
|
180
|
0 |
0 |
if $debug |
|
185
|
0 |
0 |
if ($@) { } |
|
|
0 |
0 |
elsif ($data =~ /DENY.+SARB/s) { } |
|
186
|
0 |
0 |
if $debug |
|
200
|
0 |
0 |
if ($retries_remaining) { } |
|
201
|
0 |
0 |
if $debug |
|
202
|
0 |
0 |
if $sarb_delay |
|
222
|
0 |
0 |
if ($raw_data) { } |
|
223
|
0 |
0 |
if ($raw_data =~ / $currentCTAG DENY.+;/s) { } |
|
232
|
0 |
0 |
if (scalar @records) { } |