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' |