| line |
true |
false |
branch |
|
205
|
0 |
0 |
unless (defined $mode)
|
|
208
|
0 |
0 |
unless ($mode =~ /ABS|abs|REL|rel/u)
|
|
212
|
0 |
0 |
unless (defined $speed)
|
|
215
|
0 |
0 |
if (not defined $position) { }
|
|
|
0 |
0 |
elsif (not $position =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
227
|
0 |
0 |
if ($speed > $device_settings{'speed_max'})
|
|
239
|
0 |
0 |
if ($mode eq 'ABS' or $mode eq 'abs' or $mode eq 'ABSOLUTE' or $mode eq 'absolute') { }
|
|
|
0 |
0 |
elsif ($mode eq 'REL' or $mode eq 'rel' or $mode eq 'RELATIVE' or $mode eq 'relative') { }
|
|
243
|
0 |
0 |
if ($position < $device_settings{'lower_limit'} or $position > $device_settings{'upper_limit'})
|
|
261
|
0 |
0 |
if ($CP + $position < $device_settings{'lower_limit'} or $CP + $position > $device_settings{'upper_limit'})
|
|
302
|
0 |
0 |
if ($flag <= 1.1 and $flag >= 0.9) { }
|
|
|
0 |
0 |
elsif ($flag <= 0) { }
|
|
325
|
0 |
0 |
unless ($self->active)
|
|
338
|
0 |
0 |
if ($self->read_motorinitdata)
|
|
346
|
0 |
0 |
if ($input =~ /YES|yes|Y|y/u) { }
|
|
|
0 |
0 |
elsif ($input =~ /NO|no|N|n/u) { }
|
|
386
|
0 |
0 |
if ($value eq 'REF' or $value eq 'ref') { }
|
|
|
0 |
0 |
elsif ($value =~ /^[+-]?\d+$/u and $value >= -180 and $value <= 180) { }
|
|
423
|
0 |
0 |
if ($lowerlimit < $upperlimit) { }
|
|
443
|
0 |
0 |
if ($input =~ /stop|STOP/u)
|
|
447
|
0 |
0 |
if (abs $self->get_position - $lowerlimit >= 10) { }
|
|
448
|
0 |
0 |
if ($lowerlimit <= 0) { }
|
|
478
|
0 |
0 |
if ($input =~ /stop|STOP/u)
|
|
482
|
0 |
0 |
if (abs $upperlimit - $self->get_position >= 10) { }
|
|
556
|
0 |
0 |
unless (defined $read_mode and $read_mode =~ /device|cache|request|fetch/u)
|
|
561
|
0 |
0 |
if ($read_mode eq 'cache' and defined $self->{'device_cache'}{'position'}) { }
|
|
|
0 |
0 |
elsif ($read_mode eq 'request' and $self->{'request'} == 0) { }
|
|
|
0 |
0 |
elsif ($read_mode eq 'request' and $self->{'request'} == 1) { }
|
|
|
0 |
0 |
elsif ($read_mode eq 'fetch' and $self->{'request'} == 1) { }
|
|
580
|
0 |
0 |
if ($self->{'request'} == 1) { }
|
|
591
|
0 |
0 |
if ($result =~ /Posi_$device_props{'AXIS'}:\s+([+-]?\d+)/u) { }
|
|
|
0 |
0 |
elsif ($result =~ m[Soll/Ist/Speed_$device_props{'AXIS'}:\s+([+-]?\d+)\s+([+-]?\d+)\s+([+-]?\d+)]u) { }
|
|
619
|
0 |
0 |
unless open my $dump, ">", "C:\\Perl\\site\\lib\\Lab\\Instrument\\ProStep4.ini"
|
|
645
|
0 |
0 |
unless open my $log, ">>", "C:\\Perl\\site\\lib\\Lab\\Instrument\\ProStep4.log"
|
|
656
|
0 |
0 |
unless open my $init_file, "<", "C:\\Perl\\site\\lib\\Lab\\Instrument\\ProStep4.ini"
|
|
662
|
0 |
0 |
if ($line[0] eq 'POSITION') { }
|
|
|
0 |
0 |
elsif ($line[0] eq 'TARGET') { }
|
|
|
0 |
0 |
elsif ($line[0] eq 'SPEED_MAX') { }
|
|
|
0 |
0 |
elsif ($line[0] eq 'UPPER_LIMIT') { }
|
|
|
0 |
0 |
elsif ($line[0] eq 'LOWER_LIMIT') { }
|
|
701
|
0 |
0 |
$Monat < 10 ? :
|
|
702
|
0 |
0 |
$Monatstag < 10 ? :
|
|
703
|
0 |
0 |
$Stunden < 10 ? :
|
|
704
|
0 |
0 |
$Minuten < 10 ? :
|
|
705
|
0 |
0 |
$Sekunden < 10 ? :
|