| line |
true |
false |
branch |
|
45
|
0 |
1 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
1 |
elsif (@_) { } |
|
74
|
0 |
0 |
if @s |
|
77
|
0 |
0 |
if (@{$inv->[1];} == 2 and @{$inv->[2];} > 2) |
|
110
|
0 |
0 |
unless @_ == 4 |
|
145
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
|
0 |
0 |
elsif ($#{$$self[1];} > 1) { } |
|
199
|
0 |
0 |
if ($in < $self->[2][0] and $self->[3][0] > 0 or $in > $self->[2][0] and $self->[3][0] < 0) |
|
210
|
0 |
0 |
if ($in == $self->[2][$i]) |
|
213
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
218
|
0 |
0 |
if ($in >= $self->[4][$i][0] and $in <= $self->[4][$i][1]) |
|
224
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
242
|
0 |
0 |
if ($in == $self->[2][-1]) |
|
250
|
0 |
0 |
if ($in > $self->[2][-1] and $self->[3][-1] > 0 or $in < $self->[2][-1] and $self->[3][-1] < 0) |
|
258
|
0 |
0 |
wantarray ? : |
|
274
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
|
0 |
0 |
elsif ($#{$$self[1];} > 1) { } |
|
324
|
0 |
0 |
if not defined $self->[5] or $#{$$self[5];} != $#{$$self[2];} |
|
327
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
351
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
412
|
0 |
0 |
if (@_) |
|
415
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
445
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
448
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 2 <= @{$_[0];} |
|
451
|
0 |
0 |
unless @{$_[0];} == 2 or @{$_[0];} == @{$self->[2];} |
|
480
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
483
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 2 <= @{$_[0];} |
|
486
|
0 |
0 |
unless @{$self->[1];} == 2 or @{$_[0];} == @{$self->[1];} |
|
530
|
0 |
0 |
if (not defined $hash) { } |
|
533
|
0 |
0 |
if (@{$$self[$i + 1];} > 1 and ($x0 = $$self[$i + 1][0]) != ($x1 = $$self[$i + 1][-1])) |
|
536
|
0 |
0 |
if $i and defined $self->[0]{'hl_retention'} |
|
540
|
0 |
0 |
$x0 < $x1 ? : |
|
543
|
0 |
0 |
$x0 < $x1 ? : |
|
550
|
0 |
0 |
if (defined($val = $$hash{$key[$i]})) |
|
553
|
0 |
0 |
if (@{$$self[$i + 1];} > 1 and $$self[$i + 1][0] != $$self[$i + 1][-1]) { } |
|
556
|
0 |
0 |
if (ref $val eq 'ARRAY') |
|
559
|
0 |
0 |
if (@{$val;} == 2) { } |
|
|
0 |
0 |
elsif (@{$val;} == 3) { } |
|
|
0 |
0 |
elsif (@{$val;} == 4) { } |
|
575
|
0 |
0 |
if (not ref $src and $src eq 'endpoints') { } |
|
|
0 |
0 |
elsif (not ref $src and $src eq 'minmax') { } |
|
585
|
0 |
0 |
if ($i) { } |
|
614
|
0 |
0 |
if (4 == grep({&Scalar::Util::looks_like_number($_);} $x0, $x1, $y0, $y1) and $x0 != $x1) { } |
|
643
|
0 |
0 |
if (defined $m) |
|
653
|
0 |
0 |
if $f0 |
|
654
|
0 |
0 |
if $f1 |
|
657
|
0 |
0 |
if $i == 0 |
|
660
|
0 |
0 |
if (not $i and defined($val = $self->[0]{'hl_retention'})) |
|
668
|
0 |
0 |
if ($i and defined($val = $self->[0]{'hl_original'})) |
|
676
|
0 |
0 |
if ($i and defined($val = $self->[0]{'sh_original'})) |
|
712
|
0 |
0 |
if (not defined $fmt) { } |
|
|
0 |
0 |
elsif ($fmt eq 'input') { } |
|
|
0 |
0 |
elsif ($fmt eq 'output') { } |
|
721
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
760
|
0 |
0 |
if $flag |
|
769
|
0 |
0 |
if $flag or defined($self->[0]{'type'} && $self->[0]{'type'} eq 'akima') |
|
786
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
789
|
0 |
0 |
$dir ? : |
|
831
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
834
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
840
|
0 |
0 |
if (defined $self->[1]) |
|
851
|
0 |
0 |
if (defined $self->[2]) |
|
876
|
0 |
0 |
if ($dir) { } |
|
900
|
0 |
0 |
if ($dir) { } |
|
922
|
0 |
0 |
unless _unique($self->[1]) |
|
925
|
0 |
0 |
if (not defined $self->[0]{'type'} or $self->[0]{'type'} eq 'natural') { } |
|
|
0 |
0 |
elsif ($self->[0]{'type'} eq 'akima') { } |
|
956
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
965
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
1000
|
0 |
0 |
if ($lapack) { } |
|
1034
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1037
|
0 |
0 |
if $#{$$self[1];} == 1 |
|
1048
|
0 |
0 |
if ($ix == 1) { } |
|
1065
|
0 |
0 |
unless (defined $self->[0]{'damp'}) |
|
1077
|
0 |
0 |
unless ($b = $self->[0]{'damp'}) >= 0 |
|
1087
|
0 |
0 |
if ($d1 + $d2) { } |
|
1111
|
0 |
0 |
unless _unique($self->[1]) |
|
1114
|
0 |
0 |
if (not defined $self->[0]{'type'} or $self->[0]{'type'} eq 'natural') { } |
|
|
0 |
0 |
elsif ($self->[0]{'type'} eq 'akima') { } |
|
1145
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1151
|
0 |
0 |
$lapack ? : |
|
1154
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
1195
|
0 |
0 |
if ($lapack) { } |
|
1227
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1230
|
0 |
0 |
if $#{$$self[1];} == 1 |
|
1244
|
0 |
0 |
if ($ix == 1) { } |
|
1272
|
0 |
0 |
if ($ix == 1) { } |
|
1293
|
0 |
0 |
if abs $dif > 2 |
|
1299
|
0 |
0 |
if ($dif == -2) { } |
|
|
0 |
0 |
elsif ($dif == -1) { } |
|
|
0 |
0 |
elsif ($dif == 0) { } |
|
|
0 |
0 |
elsif ($dif == 1) { } |
|
|
0 |
0 |
elsif ($dif == 2) { } |
|
1302
|
0 |
0 |
if ($i == $ix) { } |
|
1318
|
0 |
0 |
if ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
|
0 |
0 |
elsif ($i == $ix) { } |
|
1321
|
0 |
0 |
if ($ix > 2) { } |
|
1356
|
0 |
0 |
if ($i == 0) { } |
|
|
0 |
0 |
elsif ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
|
0 |
0 |
elsif ($i == $ix) { } |
|
1365
|
0 |
0 |
if ($ix > 2) { } |
|
1400
|
0 |
0 |
if ($i == 0) { } |
|
|
0 |
0 |
elsif ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
1409
|
0 |
0 |
if ($ix > 2) { } |
|
1438
|
0 |
0 |
if ($i == 0) { } |
|
1533
|
0 |
0 |
if $i and $self->[3][$i] == 0 |
|
1568
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1582
|
0 |
0 |
if abs $a < 1e-15 and abs $b < 1e-15 |
|
1585
|
0 |
0 |
if (abs $a < 1e-15) { } |
|
1597
|
0 |
0 |
if ($dscr > 0) |
|
1608
|
0 |
0 |
if $_ > 0 |
|
1624
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1649
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1652
|
0 |
0 |
if ($t) { } |
|
1689
|
0 |
0 |
if ($t) { } |
|
1692
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1696
|
0 |
0 |
if ($lapack) { } |
|
1738
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1753
|
0 |
0 |
if (abs $A < 5e-15 and abs $B < 5e-15 and abs $C < 5e-15) { } |
|
|
0 |
0 |
elsif (abs $A < 5e-15 and abs $B < 5e-15) { } |
|
|
0 |
0 |
elsif (abs $A < 5e-15) { } |
|
1756
|
0 |
0 |
if $D == 0 |
|
1771
|
0 |
0 |
if (abs $dscr < 5e-15) { } |
|
|
0 |
0 |
elsif ($dscr > 0) { } |
|
1795
|
0 |
0 |
if (abs $dscr < 5e-15) { } |
|
1798
|
0 |
0 |
if (abs $d0 < 5e-15) { } |
|
1818
|
0 |
0 |
$d1 == $cs ? : |
|
1833
|
0 |
0 |
if $dscr > 0 or abs Im($sol) < 1e-15 |
|
1842
|
0 |
0 |
$in == $y1 ? : |
|
1843
|
0 |
0 |
$in == $y2 ? : |
|
1846
|
0 |
0 |
if $_ > $lim0 |
|
1881
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
1884
|
0 |
0 |
unless $#{$$self[1];} == $#{$$self[2];} |
|
1909
|
0 |
0 |
if ($self->[1][0] > $self->[1][-1]) |
|
1945
|
0 |
0 |
if $self->[2][$_] >= $lo |
|
1948
|
0 |
0 |
if @ix < 4 |
|
1951
|
0 |
0 |
if (@{$self->[1];} == 2) { } |
|
1979
|
0 |
0 |
if (@new or $self->[2][$i] <= $hi) |
|
1982
|
0 |
0 |
@{$self->[1];} > 2 ? : |
|
2028
|
0 |
0 |
if @ix < 4 |
|
2031
|
0 |
0 |
if (@{$self->[1];} == 2) { } |
|
2059
|
0 |
0 |
if (@new or $self->[2][$i] >= $lo) |
|
2062
|
0 |
0 |
@{$self->[1];} > 2 ? : |
|
2090
|
0 |
0 |
if (defined($in = $hash->{'input'})) { } |
|
2093
|
0 |
0 |
if (ICC::Shared::is_num_vector($in) and 2 <= @{$in;}) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($in) and $in == int $in and $in > 0) { } |
|
2119
|
0 |
0 |
if (defined($out = $hash->{'output'})) { } |
|
2122
|
0 |
0 |
if (ICC::Shared::is_num_vector($out) and 2 <= @{$out;}) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($out) and $out == int $out and $out > 0) { } |
|
2148
|
0 |
0 |
if (defined($type = $hash->{'type'})) |
|
2151
|
0 |
0 |
unless $type =~ /^(natural|akima)$/ |
|
2159
|
0 |
0 |
if (defined($damp = $hash->{'damp'})) |
|
2162
|
0 |
0 |
unless &Scalar::Util::looks_like_number($damp) and $damp >= 0 |
|
2170
|
0 |
0 |
unless @{$self->[1];} == 2 or @{$self->[1];} == @{$self->[2];} |
|
2182
|
0 |
0 |
if (defined($fix = $hash->{'fix_hl'})) |
|
2185
|
0 |
0 |
unless $pok = $self->[2][-1] > $self->[2][0] |
|
2188
|
0 |
0 |
unless $fok = &Scalar::Util::looks_like_number($fix) && $fix >= -1 && $fix <= 1 |
|
2194
|
0 |
0 |
if $pok and $fok and $fix < 0 || grep({$_ <= $limit;} monotonic($self, 'output')) |
|
2199
|
0 |
0 |
if (defined($fix = $hash->{'fix_sh'})) |
|
2202
|
0 |
0 |
unless $pok = $self->[2][-1] > $self->[2][0] |
|
2205
|
0 |
0 |
unless $fok = &Scalar::Util::looks_like_number($fix) && $fix >= -1 && $fix <= 1 |
|
2211
|
0 |
0 |
if $pok and $fok and $fix < 0 || grep({$_ >= $limit;} monotonic($self, 'output')) |
|
2232
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
2252
|
0 |
0 |
$_ > 1 ? : |
|
|
0 |
0 |
$_ < 0 ? : |