| line |
true |
false |
branch |
|
40
|
0 |
1 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
1 |
elsif (@_) { } |
|
81
|
0 |
0 |
unless @_ == 4 |
|
113
|
0 |
0 |
unless &Scalar::Util::looks_like_number($in) |
|
119
|
0 |
0 |
unless @t == 1 |
|
135
|
0 |
0 |
unless &Scalar::Util::looks_like_number($in) |
|
141
|
0 |
0 |
unless @t == 1 |
|
183
|
0 |
0 |
if (@_) |
|
186
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
216
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
219
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 1 <= @{$_[0];} and 21 >= @{$_[0];} |
|
248
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
251
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 1 <= @{$_[0];} and 21 >= @{$_[0];} |
|
295
|
0 |
0 |
if (not defined $hash) { } |
|
298
|
0 |
0 |
if (@{$self->[1][$i];} > 1 and ($x0 = $self->[1][$i][0]) != ($x1 = $self->[1][$i][-1])) |
|
302
|
0 |
0 |
$x0 < $x1 ? : |
|
305
|
0 |
0 |
$x0 < $x1 ? : |
|
312
|
0 |
0 |
if (defined($val = $$hash{$key[$i]})) |
|
315
|
0 |
0 |
if (@{$self->[1][$i];} > 1 and $self->[1][$i][0] != $self->[1][$i][-1]) { } |
|
318
|
0 |
0 |
if (ref $val eq 'ARRAY') |
|
321
|
0 |
0 |
if (@{$val;} == 2) { } |
|
|
0 |
0 |
elsif (@{$val;} == 3) { } |
|
|
0 |
0 |
elsif (@{$val;} == 4) { } |
|
337
|
0 |
0 |
if (not ref $src and $src eq 'endpoints') { } |
|
|
0 |
0 |
elsif (not ref $src and $src eq 'minmax') { } |
|
364
|
0 |
0 |
if (4 == grep({&Scalar::Util::looks_like_number($_);} $x0, $x1, $y0, $y1) and $x0 != $x1) { } |
|
393
|
0 |
0 |
if (defined $m) |
|
403
|
0 |
0 |
if $f0 |
|
404
|
0 |
0 |
if $f1 |
|
438
|
0 |
0 |
if (not defined $fmt) { } |
|
|
0 |
0 |
elsif ($fmt eq 'input') { } |
|
|
0 |
0 |
elsif ($fmt eq 'output') { } |
|
487
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
490
|
0 |
0 |
$dir ? : |
|
532
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
535
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
541
|
0 |
0 |
if (defined $self->[1][0]) |
|
552
|
0 |
0 |
if (defined $self->[1][1]) |
|
582
|
0 |
0 |
$io ? : |
|
|
0 |
0 |
defined $io ? : |
|
591
|
0 |
0 |
if (@{$par;} > 2) |
|
597
|
0 |
0 |
if (grep {$fwd->[0] < 0 ^ $fwd->[$_] < 0;} 1 .. $#{$fwd;}) |
|
609
|
0 |
0 |
if ($$drv[$j - 1] < 0 ^ $drv->[$j] < 0) |
|
623
|
0 |
0 |
if $t > 0 and $t < 1 |
|
634
|
0 |
0 |
if @s and not defined $self->[2][$i] |
|
659
|
0 |
0 |
unless &Scalar::Util::looks_like_number($in) |
|
671
|
0 |
0 |
unless @t == 1 |
|
692
|
0 |
0 |
unless &Scalar::Util::looks_like_number($in) |
|
704
|
0 |
0 |
unless @t == 1 |
|
707
|
0 |
0 |
unless $di = _drv($p0, $t[0]) |
|
731
|
0 |
0 |
unless &Scalar::Util::looks_like_number($in) |
|
743
|
0 |
0 |
unless @t == 1 |
|
752
|
0 |
0 |
@{$p0;} ? : |
|
758
|
0 |
0 |
@{$p3;} ? : |
|
764
|
0 |
0 |
if (defined $bfi) |
|
770
|
0 |
0 |
unless $di |
|
780
|
0 |
0 |
if defined $bfo |
|
797
|
0 |
0 |
if (not @{$par;}) { } |
|
|
0 |
0 |
elsif (@{$par;} == 1) { } |
|
|
0 |
0 |
elsif (@{$par;} == 2) { } |
|
821
|
0 |
0 |
if ($in < 0) { } |
|
|
0 |
0 |
elsif ($in > 1) { } |
|
835
|
0 |
0 |
if ($lapack) { } |
|
867
|
0 |
0 |
if (not @{$par;}) { } |
|
|
0 |
0 |
elsif (@{$par;} == 1) { } |
|
|
0 |
0 |
elsif (@{$par;} == 2) { } |
|
876
|
0 |
0 |
unless $in == $par->[0] |
|
895
|
0 |
0 |
if ($slope = _drv($par, 0)) |
|
901
|
0 |
0 |
if $ext < 0 |
|
906
|
0 |
0 |
if $ys[0] == $in |
|
912
|
0 |
0 |
if ($in > $ys[$i - 1] and $in < $ys[$i] or $in < $ys[$i - 1] and $in > $ys[$i]) |
|
934
|
0 |
0 |
$p ? : |
|
|
0 |
0 |
if ($p ? $yval > $in : $yval < $in) { } |
|
963
|
0 |
0 |
if abs $in - $yval > 1e-12 |
|
971
|
0 |
0 |
if $ys[$i] == $in |
|
976
|
0 |
0 |
if ($slope = _drv($par, 1)) |
|
982
|
0 |
0 |
if $ext > 1 |
|
989
|
0 |
0 |
wantarray ? : |
|
1003
|
0 |
0 |
if (not @{$par;}) { } |
|
|
0 |
0 |
elsif (@{$par;} == 1) { } |
|
|
0 |
0 |
elsif (@{$par;} == 2) { } |
|
1027
|
0 |
0 |
$in > 1 ? : |
|
|
0 |
0 |
$in < 0 ? : |
|
1033
|
0 |
0 |
if ($lapack) { } |
|
1132
|
0 |
0 |
unless $lapack |
|
1141
|
0 |
0 |
unless (defined $self->[1][1][$i]) |
|
1154
|
0 |
0 |
if (@so == 0) |
|
1191
|
0 |
0 |
if $info = ICC::Support::Lapack::dgels('N', $m, $n, $nrhs, $bern, $m, $outz, $m) |
|
1194
|
0 |
0 |
$so[-1] == $d ? : |
|
|
0 |
0 |
$so[0] == 0 ? : |
|
1201
|
0 |
0 |
if ($d >= 4 and $fix_hl || $fix_sh) { } |
|
1207
|
0 |
0 |
if ($fix_hl) |
|
1218
|
0 |
0 |
if ($fix_sh) |
|
1236
|
0 |
0 |
if $info = ICC::Support::Lapack::dgels('N', $m, $n, $nrhs, $bern2, $m, $outz2, $m) |
|
1242
|
0 |
0 |
if $fix_hl |
|
1243
|
0 |
0 |
if $fix_sh |
|
1271
|
0 |
0 |
if (defined($in = $hash->{'input'})) { } |
|
1274
|
0 |
0 |
if (ICC::Shared::is_vector($in) and 21 >= @{$in;}) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($in) and $in == int $in and $in > 0 and $in < 21) { } |
|
1300
|
0 |
0 |
if (defined($out = $hash->{'output'})) { } |
|
1303
|
0 |
0 |
if (ICC::Shared::is_vector($out) and 21 >= @{$out;}) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($out) and $out == int $out and $out > 0 and $out < 21) { } |
|
1329
|
0 |
0 |
if (defined($fit = $hash->{'fit'}) and @{$fit;}) { } |
|
1332
|
0 |
0 |
unless ICC::Shared::is_num_vector($fit->[0]) and 1 <= @{$fit->[0];} |
|
1333
|
0 |
0 |
unless ICC::Shared::is_num_vector($fit->[1]) and 1 <= @{$fit->[1];} |
|
1334
|
0 |
0 |
unless @{$fit->[0];} == @{$fit->[1];} |
|
1337
|
0 |
0 |
if _fit($self, $fit, $hash) |
|
1342
|
0 |
0 |
unless @{$self->[1][0];} == grep({defined $_;} @{$$self[1][0];}) |
|
1343
|
0 |
0 |
unless @{$self->[1][1];} == grep({defined $_;} @{$$self[1][1];}) |
|
1367
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
1387
|
0 |
0 |
$_ > 1 ? : |
|
|
0 |
0 |
$_ < 0 ? : |