line |
true |
false |
branch |
93
|
0 |
0 |
if ($device_settings->{'has_switchheater'})
|
99
|
0 |
0 |
if ($switchheater == 0 or $switchheater == 2)
|
162
|
0 |
0 |
unless $self->{'device_settings'}{'has_switchheater'}
|
166
|
0 |
0 |
if ($mode == 0) { }
|
|
0 |
0 |
elsif ($mode == 1) { }
|
191
|
0 |
0 |
unless $self->{'device_settings'}{'has_switchheater'}
|
222
|
0 |
0 |
if ($mode != 0 and $mode != 1 and $mode != 4 and $mode != 5 and $mode != 8 and $mode != 9)
|
245
|
0 |
0 |
if (ref $mode eq "HASH")
|
249
|
0 |
0 |
if ($mode != 0 and $mode != 2 and $mode != 4 and $mode != 6)
|
292
|
0 |
0 |
unless (0 <= $mode and $mode <= 4)
|
305
|
0 |
0 |
if ($targetrate < "0.0001")
|
371
|
0 |
0 |
if ($parameter != 0 and $parameter != 1 and $parameter != 2 and $parameter != 3 and $parameter != 4 and $parameter != 5 and $parameter != 6 and $parameter != 7 and $parameter != 8 and $parameter != 9 and $parameter != 10 and $parameter != 15 and $parameter != 16 and $parameter != 17 and $parameter != 18 and $parameter != 19 and $parameter != 20 and $parameter != 21 and $parameter != 22 and $parameter != 23 and $parameter != 24)
|
418
|
0 |
0 |
if ($persistent_mode)
|
433
|
0 |
0 |
unless $self->{'device_settings'}{'has_switchheater'}
|
439
|
0 |
0 |
if ($mode == 1) { }
|
|
0 |
0 |
elsif ($mode == 0 and $switch == 2) { }
|
|
0 |
0 |
elsif ($mode == 0 and $switch == 0) { }
|
475
|
0 |
0 |
unless $self->{'device_settings'}{'has_switchheater'}
|
482
|
0 |
0 |
if ($field == 0 and $sh == 2) { }
|
512
|
0 |
0 |
if ($flag <= 1.1 and $flag >= 0.9) { }
|
|
0 |
0 |
elsif ($flag <= 0) { }
|
523
|
0 |
0 |
unless ($self->active)
|
545
|
0 |
0 |
if (not $sweepstatus and @{$$self{'SWEEP_QUEUE'};}[1]) { }
|
|
0 |
0 |
elsif (not $sweepstatus) { }
|
569
|
0 |
0 |
if (not defined $target_field or abs $target_field > $self->{'LIMITS'}{'magneticfield'} or not $target_field =~ /\b\d+(e\d+|E\d+|exp\d+|EXP\d+)?\b/u)
|
579
|
0 |
0 |
if (abs $target_field > abs $current_field) { }
|
588
|
0 |
0 |
if ($check_field > $self->{'LIMITS'}{'field_intervall_limits'}[$i])
|
595
|
0 |
0 |
if (not defined $rate or $rate < 0 or $rate > $self->{'LIMITS'}{'rate_intervall_limits'}[$max_rate] or not $rate =~ /\b\d+(e\d+|E\d+|exp\d+|EXP\d+)?\b/u)
|
617
|
0 |
0 |
if (@{$$self{"SWEEP_QUEUE"};}[0] != 0)
|
619
|
0 |
0 |
$current_field >= @{$$self{'SWEEP_QUEUE'}[0][0];}[-1] ? :
|
623
|
0 |
0 |
if ((@{$$self{"SWEEP_QUEUE"}[0][0];}[0] - $current_field) * $sweepdirection < 0)
|
642
|
0 |
0 |
if (@{$$self{'SWEEP_QUEUE'};}[0] == 0) { }
|
675
|
0 |
0 |
if (ref $sweep_points eq "HASH")
|
687
|
0 |
0 |
if ($len > 2) { }
|
691
|
0 |
0 |
@sweep_points[$i] - @sweep_points[$i - 1] >= 0 ? :
|
695
|
0 |
0 |
@sweep_points[$i + 1] - @sweep_points[$i] >= 0 ? :
|
699
|
0 |
0 |
if ($sign_1 == $sign_2) { }
|
758
|
0 |
0 |
unless (defined $interval)
|
762
|
0 |
0 |
unless (defined $rate)
|
768
|
0 |
0 |
if (ref $field eq 'ARRAY') { }
|
772
|
0 |
0 |
if (ref $rate eq "ARRAY")
|
788
|
0 |
0 |
if (@sweep_rates[$i] == 0)
|
793
|
0 |
0 |
if ((my $i = @sweep_points) != (my $j = @sweep_rates))
|
806
|
0 |
0 |
if (my $status = $self->_check_limits(@sweep_points[$i], @sweep_points[$i + 1], @sweep_rates[$i]))
|
824
|
0 |
0 |
$points[-1] - $current_field >= 0 ? :
|
841
|
0 |
0 |
if ((my $len_trace = @trace) == 0)
|
862
|
0 |
0 |
if (abs $target > $self->{'LIMITS'}{'magneticfield'})
|
865
|
0 |
0 |
unless (defined $rate)
|
868
|
0 |
0 |
$current_field < $target ? :
|
872
|
0 |
0 |
if (abs $current_field > $field_limit and $field_limit != 0)
|
875
|
0 |
0 |
if (abs $target > $field_limit and $field_limit != 0)
|
881
|
0 |
0 |
$current_field < 0 ? :
|
884
|
0 |
0 |
$target < 0 ? :
|
895
|
0 |
0 |
$interval >= 0 ? :
|
|
0 |
0 |
$interval * $sweep_direction >= 0 ? :
|
900
|
0 |
0 |
if ($interval == 0)
|
906
|
0 |
0 |
if ($target * $sweep_direction <= $vergleichswert * $sweep_direction or abs $interval >= @{$self->{'LIMITS'}{'field_intervall_limits'};} - 1 and $interval != $current_field_interval)
|
915
|
0 |
0 |
if ($rate > @{$$self{'LIMITS'}{'rate_intervall_limits'};}[$index] or not defined $rate) { }
|
930
|
0 |
0 |
if ($vergleichswert != $current_field)
|
932
|
0 |
0 |
if ($rate > @{$$self{'LIMITS'}{'rate_intervall_limits'};}[abs $interval] or not defined $rate) { }
|