line |
true |
false |
branch |
142
|
0 |
0 |
unless defined $hostname |
144
|
0 |
0 |
if ($hostname =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/ or $hostname =~ /^[a-z][a-z0-9\.\-]+$/) |
159
|
0 |
0 |
unless defined $port |
161
|
0 |
0 |
if ($port =~ /^\d{1,5}$/ and $port < 65536) |
176
|
0 |
0 |
unless defined $uid |
178
|
0 |
0 |
if ($uid =~ /^\d{1,3}$/) |
192
|
0 |
0 |
unless defined $mode |
206
|
0 |
0 |
unless defined $timeout |
208
|
0 |
0 |
if ($timeout =~ /^\d{1,5}$/ and $timeout < 180) |
221
|
0 |
0 |
if $self->{'debug'} |
223
|
0 |
0 |
if $self->is_open |
226
|
0 |
0 |
unless ($ad_ip) |
228
|
0 |
0 |
if $self->{'debug'} |
234
|
0 |
0 |
if ($connect_ok) { } |
239
|
0 |
0 |
if $self->{'debug'} |
259
|
0 |
0 |
if ($self->{'sock'}) { } |
283
|
0 |
0 |
unless $s_send |
287
|
0 |
0 |
unless $f_body |
311
|
0 |
0 |
unless $s_send |
315
|
0 |
0 |
unless $f_body |
340
|
0 |
0 |
unless $s_send |
344
|
0 |
0 |
unless $f_body |
367
|
0 |
0 |
unless $s_send |
371
|
0 |
0 |
unless $f_body |
390
|
0 |
0 |
$bit_value ? : |
395
|
0 |
0 |
unless $s_send |
399
|
0 |
0 |
unless $f_body |
403
|
0 |
0 |
$rx_bit_addr == $bit_addr && $rx_bit_value == $bit_value ? : |
421
|
0 |
0 |
unless $s_send |
425
|
0 |
0 |
unless $f_body |
429
|
0 |
0 |
$rx_reg_addr == $reg_addr && $rx_reg_value == $reg_value ? : |
456
|
0 |
0 |
unless $s_send |
460
|
0 |
0 |
unless $f_body |
464
|
0 |
0 |
$rx_reg_addr == $reg_addr ? : |
477
|
0 |
0 |
if ($self->{'MODE'} == 1) { } |
|
0 |
0 |
elsif ($self->{'MODE'} == 2) { } |
504
|
0 |
0 |
unless $bytes_send |
506
|
0 |
0 |
if $self->{'debug'} |
521
|
0 |
0 |
if ($self->{'MODE'} == 1) { } |
|
0 |
0 |
elsif ($self->{'MODE'} == 2) { } |
524
|
0 |
0 |
unless $rx_buffer |
529
|
0 |
0 |
unless ($rx_hd_tr_id == $self->{'hd_tr_id'} and $rx_hd_pr_id == 0 and $rx_hd_length < 256 and $rx_hd_unit_id == $self->{'UNIT_ID'}) |
536
|
0 |
0 |
unless $rx_buffer |
539
|
0 |
0 |
if $self->{'debug'} |
545
|
0 |
0 |
unless $rx_buffer |
548
|
0 |
0 |
if $self->{'debug'} |
550
|
0 |
0 |
if (&bytes::length($rx_frame) < 5) |
552
|
0 |
0 |
if $self->{'debug'} |
557
|
0 |
0 |
unless ($self->_crc_is_ok($rx_frame)) |
559
|
0 |
0 |
if $self->{'debug'} |
568
|
0 |
0 |
unless ($rx_unit_id == $self->{'UNIT_ID'}) |
574
|
0 |
0 |
if ($rx_bd_fc > 128) { } |
579
|
0 |
0 |
if $self->{'debug'} |
595
|
0 |
0 |
unless ($self->is_open) |
596
|
0 |
0 |
if $self->{'debug'} |
597
|
0 |
0 |
unless $self->open |
603
|
0 |
0 |
if ($send_l != $data_l) { } |
605
|
0 |
0 |
if $self->{'debug'} |
621
|
0 |
0 |
unless ($self->_can_read) |
628
|
0 |
0 |
unless (defined $s_recv) |
630
|
0 |
0 |
if $self->{'debug'} |
643
|
0 |
0 |
if ($_select) { } |
647
|
0 |
0 |
if $self->{'debug'} |
667
|
0 |
0 |
if $lsb |
699
|
0 |
0 |
if ($self->{'MODE'} == 1) { } |
|
0 |
0 |
elsif ($self->{'MODE'} == 2) { } |