| line |
true |
false |
branch |
|
193
|
0 |
0 |
if $instance++ |
|
196
|
0 |
0 |
unless defined $config_filename |
|
199
|
0 |
0 |
unless my $config = LoadFile($config_filename) |
|
202
|
0 |
0 |
unless my $port = 'Device::SerialPort'->new($config->{'serial'}{'port'}) |
|
215
|
0 |
0 |
if $port->lookfor |
|
226
|
0 |
0 |
if ($data = $port->lookfor) eq 'RESET' |
|
228
|
0 |
0 |
unless $data eq 'RESET' |
|
273
|
0 |
0 |
unless defined $timeout |
|
278
|
0 |
0 |
if $response |
|
280
|
0 |
0 |
if $timeout > 0 |
|
411
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^EXTH=DISABLED/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^OVLH=DISABLED/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^EXTH=ENABLED/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^OVLH=ENABLED/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^HALT/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^IC/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^OP/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^PS/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^REP-MODE/ |
|
|
0 |
0 |
unless $response |
|
|
0 |
0 |
if not $response =~ /^SINGLE-RUN/ |
|
417
|
0 |
0 |
unless $response |
|
419
|
0 |
0 |
unless $response =~ /^SINGLE-RUN/ |
|
423
|
0 |
0 |
unless $response |
|
425
|
0 |
0 |
unless $response =~ /^EOSR/ or $response =~ /^EOSRHLT/ |
|
445
|
0 |
0 |
if $ic_time < 0 or $ic_time > 999999 |
|
451
|
0 |
0 |
unless $response |
|
452
|
0 |
0 |
unless $response =~ /$pattern/ |
|
468
|
0 |
0 |
if $op_time < 0 or $op_time > 999999 |
|
474
|
0 |
0 |
unless $response |
|
475
|
0 |
0 |
unless $response =~ /$pattern/ |
|
494
|
0 |
0 |
unless defined $address |
|
498
|
0 |
0 |
unless $response |
|
517
|
0 |
0 |
unless $response |
|
539
|
0 |
0 |
if $response eq 'No data!' or $response =~ /EOD/ |
|
541
|
0 |
0 |
@values == 1 ? : |
|
588
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
631
|
0 |
0 |
unless $response |
|
633
|
0 |
0 |
unless $response =~ /$pattern/ |
|
649
|
0 |
0 |
if $port < 0 or $port > 8 |
|
651
|
0 |
0 |
$state ? : |
|
665
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
666
|
0 |
0 |
if length $config != 20 |
|
672
|
0 |
0 |
unless $response |
|
673
|
0 |
0 |
unless $response eq 'XBAR READY' |
|
714
|
0 |
0 |
unless defined $self->{'elements'}{$pot} |
|
717
|
0 |
0 |
if ($value < 0 or $value > 1) |
|
719
|
0 |
0 |
if $value > 1 |
|
720
|
0 |
0 |
if $value < 0 |
|
734
|
0 |
0 |
unless $response |
|
736
|
0 |
0 |
if hex $address != hex $raddress or hex $number != hex $rnumber or $value != $rvalue |
|
753
|
0 |
0 |
unless $response |
|
793
|
0 |
0 |
unless $response |
|
836
|
0 |
0 |
unless $response |
|
838
|
0 |
0 |
unless $response =~ /$pattern/ |
|
841
|
0 |
0 |
$time ? : |
|
857
|
0 |
0 |
unless $response |
|
858
|
0 |
0 |
if $response ne 'RESET' |