| line |
true |
false |
branch |
|
262
|
0 |
0 |
if $instance++ |
|
264
|
0 |
0 |
unless defined $config_filename |
|
266
|
0 |
0 |
unless my $config = LoadFile($config_filename) |
|
268
|
0 |
0 |
unless my $port = 'Device::SerialPort'->new($config->{'serial'}{'port'}) |
|
280
|
0 |
0 |
if $port->lookfor |
|
291
|
0 |
0 |
if ($data = $port->lookfor) eq 'RESET' |
|
293
|
0 |
0 |
unless $data eq 'RESET' |
|
330
|
0 |
0 |
unless defined $timeout |
|
335
|
0 |
0 |
if $response |
|
337
|
0 |
0 |
if $timeout > 0 |
|
445
|
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/ |
|
451
|
0 |
0 |
unless $response |
|
452
|
0 |
0 |
unless $response =~ /^SINGLE-RUN/ |
|
455
|
0 |
0 |
unless $response |
|
456
|
0 |
0 |
unless $response =~ /^EOSR/ or $response =~ /^EOSRHLT/ |
|
473
|
0 |
0 |
if $ic_time < 0 or $ic_time > 999999 |
|
478
|
0 |
0 |
unless $response |
|
479
|
0 |
0 |
unless $response =~ /$pattern/ |
|
493
|
0 |
0 |
if $op_time < 0 or $op_time > 999999 |
|
498
|
0 |
0 |
unless $response |
|
499
|
0 |
0 |
unless $response =~ /$pattern/ |
|
514
|
0 |
0 |
unless defined $address |
|
517
|
0 |
0 |
unless $response |
|
535
|
0 |
0 |
unless $response |
|
555
|
0 |
0 |
if $response eq 'No data!' or $response =~ /EOD/ |
|
557
|
0 |
0 |
@values == 1 ? : |
|
600
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
639
|
0 |
0 |
unless $response |
|
641
|
0 |
0 |
unless $response =~ /$pattern/ |
|
655
|
0 |
0 |
if $port < 0 or $port > 8 |
|
656
|
0 |
0 |
$state ? : |
|
678
|
0 |
0 |
unless @data == 16 |
|
679
|
0 |
0 |
if $_ eq '-' |
|
682
|
0 |
0 |
defined $_ ? : |
|
695
|
0 |
0 |
unless defined $self->{'elements'}{$name} |
|
703
|
0 |
0 |
unless $response |
|
704
|
0 |
0 |
unless $response eq 'XBAR READY' |
|
747
|
0 |
0 |
unless defined $self->{'elements'}{$pot} |
|
750
|
0 |
0 |
if ($value < 0 or $value > 1) |
|
752
|
0 |
0 |
if $value > 1 |
|
753
|
0 |
0 |
if $value < 0 |
|
767
|
0 |
0 |
unless $response |
|
769
|
0 |
0 |
if hex $address != hex $raddress or hex $number != hex $rnumber or $value != $rvalue |
|
785
|
0 |
0 |
unless $response |
|
822
|
0 |
0 |
unless $response |
|
859
|
0 |
0 |
unless $response |
|
861
|
0 |
0 |
unless $response =~ /$pattern/ |
|
863
|
0 |
0 |
$time ? : |
|
878
|
0 |
0 |
unless $response |
|
879
|
0 |
0 |
if $response ne 'RESET' |
|
896
|
0 |
0 |
defined $rest{'data'} ? : |
|
897
|
0 |
0 |
defined $rest{'type'} ? : |
|
899
|
0 |
0 |
if not defined $data or @$data == 0 |
|
902
|
0 |
0 |
if (defined $rest{'filename'}) { } |
|
904
|
0 |
0 |
unless open $handle, '>', $filename |
|
910
|
0 |
0 |
if (defined $type and $type eq '3D') { } |
|
918
|
0 |
0 |
if (ref $tupel eq 'ARRAY') { } |
|
954
|
0 |
0 |
defined $rest{'data'} ? : |
|
955
|
0 |
0 |
defined $rest{'type'} ? : |
|
957
|
0 |
0 |
if not defined $data or @$data == 0 |
|
958
|
0 |
0 |
ref $data->[0] eq 'ARRAY' ? : |
|
965
|
0 |
0 |
if defined $type and $type eq 'PHASE' and $columns != 2 |
|
968
|
0 |
0 |
if defined $type and $type eq '3D' and $columns < 2 |
|
971
|
0 |
0 |
if (defined $type and $type eq 'PHASE') { } |
|
|
0 |
0 |
elsif (defined $type and $type eq '3D') { } |
|
994
|
0 |
0 |
unless defined $self->{'problem'} |
|
999
|
0 |
0 |
if defined $self->{'problem'}{'times'}{'ic'} |
|
1000
|
0 |
0 |
if defined $self->{'problem'}{'times'}{'op'} |
|
1005
|
0 |
0 |
unless my $sign = !($value =~ /^-/) |
|
1009
|
0 |
0 |
unless defined $number |
|
1010
|
0 |
0 |
if $value < 0 or $value > 1 |
|
1020
|
0 |
0 |
if defined $self->{'problem'}{'ro-group'} |
|
1023
|
0 |
0 |
if (defined $self->{'problem'} and defined $xbar_address) |
|
1024
|
0 |
0 |
unless defined $self->{'xbar'} |
|
1025
|
0 |
0 |
unless defined $self->{'problem'}{'circuit'} |
|
1035
|
0 |
0 |
unless defined $source |
|
1038
|
0 |
0 |
unless defined $destination |