| line |
true |
false |
branch |
|
261
|
0 |
0 |
if $instance++ |
|
263
|
0 |
0 |
unless defined $config_filename |
|
265
|
0 |
0 |
unless my $config = LoadFile($config_filename) |
|
267
|
0 |
0 |
unless my $port = 'Device::SerialPort'->new($config->{'serial'}{'port'}) |
|
279
|
0 |
0 |
if $port->lookfor |
|
290
|
0 |
0 |
if ($data = $port->lookfor) eq 'RESET' |
|
292
|
0 |
0 |
unless $data eq 'RESET' |
|
329
|
0 |
0 |
unless defined $timeout |
|
334
|
0 |
0 |
if $response |
|
336
|
0 |
0 |
if $timeout > 0 |
|
444
|
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/ |
|
450
|
0 |
0 |
unless $response |
|
451
|
0 |
0 |
unless $response =~ /^SINGLE-RUN/ |
|
454
|
0 |
0 |
unless $response |
|
455
|
0 |
0 |
unless $response =~ /^EOSR/ or $response =~ /^EOSRHLT/ |
|
472
|
0 |
0 |
if $ic_time < 0 or $ic_time > 999999 |
|
477
|
0 |
0 |
unless $response |
|
478
|
0 |
0 |
unless $response =~ /$pattern/ |
|
492
|
0 |
0 |
if $op_time < 0 or $op_time > 999999 |
|
497
|
0 |
0 |
unless $response |
|
498
|
0 |
0 |
unless $response =~ /$pattern/ |
|
513
|
0 |
0 |
unless defined $address |
|
516
|
0 |
0 |
unless $response |
|
534
|
0 |
0 |
unless $response |
|
554
|
0 |
0 |
if $response eq 'No data!' or $response =~ /EOD/ |
|
556
|
0 |
0 |
@values == 1 ? : |
|
599
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
638
|
0 |
0 |
unless $response |
|
640
|
0 |
0 |
unless $response =~ /$pattern/ |
|
654
|
0 |
0 |
if $port < 0 or $port > 8 |
|
655
|
0 |
0 |
$state ? : |
|
677
|
0 |
0 |
unless @data == 16 |
|
678
|
0 |
0 |
if $_ eq '-' |
|
681
|
0 |
0 |
defined $_ ? : |
|
694
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
702
|
0 |
0 |
unless $response |
|
703
|
0 |
0 |
unless $response eq 'XBAR READY' |
|
746
|
0 |
0 |
unless defined $self->{'elements'}{$pot} |
|
749
|
0 |
0 |
if ($value < 0 or $value > 1) |
|
751
|
0 |
0 |
if $value > 1 |
|
752
|
0 |
0 |
if $value < 0 |
|
766
|
0 |
0 |
unless $response |
|
768
|
0 |
0 |
if hex $address != hex $raddress or hex $number != hex $rnumber or $value != $rvalue |
|
784
|
0 |
0 |
unless $response |
|
821
|
0 |
0 |
unless $response |
|
858
|
0 |
0 |
unless $response |
|
860
|
0 |
0 |
unless $response =~ /$pattern/ |
|
862
|
0 |
0 |
$time ? : |
|
877
|
0 |
0 |
unless $response |
|
878
|
0 |
0 |
if $response ne 'RESET' |
|
895
|
0 |
0 |
defined $rest{'data'} ? : |
|
896
|
0 |
0 |
if not defined $data or @$data == 0 |
|
899
|
0 |
0 |
if (defined $rest{'filename'}) { } |
|
901
|
0 |
0 |
unless open $handle, '>', $filename |
|
908
|
0 |
0 |
if (ref $tupel eq 'ARRAY') { } |
|
937
|
0 |
0 |
defined $rest{'data'} ? : |
|
938
|
0 |
0 |
if not defined $data or @$data == 0 |
|
939
|
0 |
0 |
ref $data->[0] eq 'ARRAY' ? : |
|
944
|
0 |
0 |
if defined $rest{'type'} and $rest{'type'} eq 'phase' and $columns != 2 |
|
948
|
0 |
0 |
if (defined $rest{'type'} and $rest{'type'} eq 'phase') { } |
|
969
|
0 |
0 |
unless defined $self->{'problem'} |
|
974
|
0 |
0 |
if defined $self->{'problem'}{'times'}{'ic'} |
|
975
|
0 |
0 |
if defined $self->{'problem'}{'times'}{'op'} |
|
980
|
0 |
0 |
unless my $sign = !($value =~ /^-/) |
|
984
|
0 |
0 |
unless defined $number |
|
985
|
0 |
0 |
if $value < 0 or $value > 1 |
|
995
|
0 |
0 |
if defined $self->{'problem'}{'ro-group'} |
|
998
|
0 |
0 |
if (defined $self->{'problem'}) |
|
999
|
0 |
0 |
unless defined $self->{'xbar'} |
|
1000
|
0 |
0 |
unless defined $self->{'problem'}{'circuit'} |
|
1010
|
0 |
0 |
unless defined $source |
|
1013
|
0 |
0 |
unless defined $destination |