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 |