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 |