| line |
true |
false |
branch |
|
107
|
0 |
0 |
unless (defined $mode)
|
|
110
|
0 |
0 |
unless ($mode =~ /ABS|abs|REL|rel/u)
|
|
115
|
0 |
0 |
unless (defined $speed)
|
|
118
|
0 |
0 |
if (not defined $position) { }
|
|
|
0 |
0 |
elsif (not $position =~ /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/u) { }
|
|
131
|
0 |
0 |
if ($speed > $self->device_settings->{'speed_max'})
|
|
142
|
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') { }
|
|
146
|
0 |
0 |
if ($position < $self->device_settings->{'lower_limit'} or $position > $self->device_settings->{'upper_limit'})
|
|
163
|
0 |
0 |
if ($CP + $position < $self->device_settings->{'lower_limit'} or $CP + $position > $self->device_settings->{'upper_limit'})
|
|
202
|
0 |
0 |
if ($flag <= 1.1 and $flag >= 0.9) { }
|
|
|
0 |
0 |
elsif ($flag <= 0) { }
|
|
226
|
0 |
0 |
unless ($self->active)
|
|
239
|
0 |
0 |
if ($self->read_motorinitdata)
|
|
245
|
0 |
0 |
if ($input =~ /YES|yes|Y|y/u) { }
|
|
|
0 |
0 |
elsif ($input =~ /NO|no|N|n/u) { }
|
|
284
|
0 |
0 |
if ($value eq 'REF' or $value eq 'ref') { }
|
|
|
0 |
0 |
elsif ($value =~ /^[+-]?\d+$/u and $value >= -180 and $value <= 180) { }
|
|
320
|
0 |
0 |
if ($lowerlimit < $upperlimit) { }
|
|
340
|
0 |
0 |
if ($input =~ /stop|STOP/u)
|
|
344
|
0 |
0 |
if (abs $self->get_position - $lowerlimit >= 10) { }
|
|
345
|
0 |
0 |
if ($lowerlimit <= 0) { }
|
|
375
|
0 |
0 |
if ($input =~ /stop|STOP/u)
|
|
379
|
0 |
0 |
if (abs $upperlimit - $self->get_position >= 10) { }
|
|
437
|
0 |
0 |
unless (defined $read_mode and $read_mode =~ /device|cache|request|fetch/u)
|
|
442
|
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) { }
|
|
461
|
0 |
0 |
if ($self->{'request'} == 1) { }
|
|
472
|
0 |
0 |
if ($result =~ /Posi_$AXIS:\s+([+-]?\d+)/u) { }
|
|
|
0 |
0 |
elsif ($result =~ m[Soll/Ist/Speed_$AXIS:\s+([+-]?\d+)\s+([+-]?\d+)\s+([+-]?\d+)]u) { }
|
|
529
|
0 |
0 |
unless (open DUMP, "<C:\\Perl\\site\\lib\\Lab\\Instrument\\ProStep4.ini")
|
|
538
|
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') { }
|
|
576
|
0 |
0 |
$Monat < 10 ? :
|
|
577
|
0 |
0 |
$Monatstag < 10 ? :
|
|
578
|
0 |
0 |
$Stunden < 10 ? :
|
|
579
|
0 |
0 |
$Minuten < 10 ? :
|
|
580
|
0 |
0 |
$Sekunden < 10 ? :
|