| line |
true |
false |
branch |
|
42
|
0 |
1 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
1 |
elsif (@_) { } |
|
71
|
0 |
0 |
if @s |
|
74
|
0 |
0 |
if (@{$inv->[1];} == 2 and @{$inv->[2];} > 2) |
|
107
|
0 |
0 |
unless @_ == 4 |
|
142
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
|
0 |
0 |
elsif ($#{$$self[1];} > 1) { } |
|
196
|
0 |
0 |
if ($in < $self->[2][0] and $self->[3][0] > 0 or $in > $self->[2][0] and $self->[3][0] < 0) |
|
207
|
0 |
0 |
if ($in == $self->[2][$i]) |
|
210
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
215
|
0 |
0 |
if ($in >= $self->[4][$i][0] and $in <= $self->[4][$i][1]) |
|
221
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
239
|
0 |
0 |
if ($in == $self->[2][-1]) |
|
247
|
0 |
0 |
if ($in > $self->[2][-1] and $self->[3][-1] > 0 or $in < $self->[2][-1] and $self->[3][-1] < 0) |
|
255
|
0 |
0 |
wantarray ? : |
|
271
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
|
0 |
0 |
elsif ($#{$$self[1];} > 1) { } |
|
321
|
0 |
0 |
if not defined $self->[5] or $#{$$self[5];} != $#{$$self[2];} |
|
324
|
0 |
0 |
if ($in < $self->[1][0]) { } |
|
|
0 |
0 |
elsif ($in >= $self->[1][-1]) { } |
|
348
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
409
|
0 |
0 |
if (@_) |
|
412
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
442
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
445
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 2 <= @{$_[0];} |
|
448
|
0 |
0 |
unless @{$_[0];} == 2 or @{$_[0];} == @{$self->[2];} |
|
477
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_) { } |
|
480
|
0 |
0 |
unless ICC::Shared::is_num_vector($_[0]) and 2 <= @{$_[0];} |
|
483
|
0 |
0 |
unless @{$self->[1];} == 2 or @{$_[0];} == @{$self->[1];} |
|
527
|
0 |
0 |
if (not defined $hash) { } |
|
530
|
0 |
0 |
if (@{$$self[$i + 1];} > 1 and ($x0 = $$self[$i + 1][0]) != ($x1 = $$self[$i + 1][-1])) |
|
533
|
0 |
0 |
if $i and defined $self->[0]{'hl_retention'} |
|
537
|
0 |
0 |
$x0 < $x1 ? : |
|
540
|
0 |
0 |
$x0 < $x1 ? : |
|
547
|
0 |
0 |
if (defined($val = $$hash{$key[$i]})) |
|
550
|
0 |
0 |
if (@{$$self[$i + 1];} > 1 and $$self[$i + 1][0] != $$self[$i + 1][-1]) { } |
|
553
|
0 |
0 |
if (ref $val eq 'ARRAY') |
|
556
|
0 |
0 |
if (@{$val;} == 2) { } |
|
|
0 |
0 |
elsif (@{$val;} == 3) { } |
|
|
0 |
0 |
elsif (@{$val;} == 4) { } |
|
572
|
0 |
0 |
if (not ref $src and $src eq 'endpoints') { } |
|
|
0 |
0 |
elsif (not ref $src and $src eq 'minmax') { } |
|
582
|
0 |
0 |
if ($i) { } |
|
611
|
0 |
0 |
if (4 == grep({&Scalar::Util::looks_like_number($_);} $x0, $x1, $y0, $y1) and $x0 != $x1) { } |
|
640
|
0 |
0 |
if (defined $m) |
|
650
|
0 |
0 |
if $f0 |
|
651
|
0 |
0 |
if $f1 |
|
654
|
0 |
0 |
if $i == 0 |
|
657
|
0 |
0 |
if (not $i and defined($val = $self->[0]{'hl_retention'})) |
|
665
|
0 |
0 |
if ($i and defined($val = $self->[0]{'hl_original'})) |
|
673
|
0 |
0 |
if ($i and defined($val = $self->[0]{'sh_original'})) |
|
709
|
0 |
0 |
if (not defined $fmt) { } |
|
|
0 |
0 |
elsif ($fmt eq 'input') { } |
|
|
0 |
0 |
elsif ($fmt eq 'output') { } |
|
718
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
757
|
0 |
0 |
if $flag |
|
766
|
0 |
0 |
if $flag or defined($self->[0]{'type'} && $self->[0]{'type'} eq 'akima') |
|
783
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
786
|
0 |
0 |
$dir ? : |
|
828
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
831
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
837
|
0 |
0 |
if (defined $self->[1]) |
|
848
|
0 |
0 |
if (defined $self->[2]) |
|
873
|
0 |
0 |
if ($dir) { } |
|
897
|
0 |
0 |
if ($dir) { } |
|
919
|
0 |
0 |
unless _unique($self->[1]) |
|
922
|
0 |
0 |
if (not defined $self->[0]{'type'} or $self->[0]{'type'} eq 'natural') { } |
|
|
0 |
0 |
elsif ($self->[0]{'type'} eq 'akima') { } |
|
953
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
962
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
997
|
0 |
0 |
if ($lapack) { } |
|
1031
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1034
|
0 |
0 |
if $#{$$self[1];} == 1 |
|
1045
|
0 |
0 |
if ($ix == 1) { } |
|
1062
|
0 |
0 |
unless (defined $self->[0]{'damp'}) |
|
1074
|
0 |
0 |
unless ($b = $self->[0]{'damp'}) >= 0 |
|
1084
|
0 |
0 |
if ($d1 + $d2) { } |
|
1108
|
0 |
0 |
unless _unique($self->[1]) |
|
1111
|
0 |
0 |
if (not defined $self->[0]{'type'} or $self->[0]{'type'} eq 'natural') { } |
|
|
0 |
0 |
elsif ($self->[0]{'type'} eq 'akima') { } |
|
1142
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1148
|
0 |
0 |
$lapack ? : |
|
1151
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
1192
|
0 |
0 |
if ($lapack) { } |
|
1224
|
0 |
0 |
unless ($ix = $#{$$self[2];}) > 0 |
|
1227
|
0 |
0 |
if $#{$$self[1];} == 1 |
|
1241
|
0 |
0 |
if ($ix == 1) { } |
|
1269
|
0 |
0 |
if ($ix == 1) { } |
|
1290
|
0 |
0 |
if abs $dif > 2 |
|
1296
|
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) { } |
|
1299
|
0 |
0 |
if ($i == $ix) { } |
|
1315
|
0 |
0 |
if ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
|
0 |
0 |
elsif ($i == $ix) { } |
|
1318
|
0 |
0 |
if ($ix > 2) { } |
|
1353
|
0 |
0 |
if ($i == 0) { } |
|
|
0 |
0 |
elsif ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
|
0 |
0 |
elsif ($i == $ix) { } |
|
1362
|
0 |
0 |
if ($ix > 2) { } |
|
1397
|
0 |
0 |
if ($i == 0) { } |
|
|
0 |
0 |
elsif ($i == 1) { } |
|
|
0 |
0 |
elsif ($i == $ix - 1) { } |
|
1406
|
0 |
0 |
if ($ix > 2) { } |
|
1435
|
0 |
0 |
if ($i == 0) { } |
|
1530
|
0 |
0 |
if $i and $self->[3][$i] == 0 |
|
1565
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1579
|
0 |
0 |
if abs $a < 1e-15 and abs $b < 1e-15 |
|
1582
|
0 |
0 |
if (abs $a < 1e-15) { } |
|
1594
|
0 |
0 |
if ($dscr > 0) |
|
1605
|
0 |
0 |
if $_ > 0 |
|
1621
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1646
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1649
|
0 |
0 |
if ($t) { } |
|
1686
|
0 |
0 |
if ($t) { } |
|
1689
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1693
|
0 |
0 |
if ($lapack) { } |
|
1735
|
0 |
0 |
$#{$$self[1];} > 1 ? : |
|
1750
|
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) { } |
|
1753
|
0 |
0 |
if $D == 0 |
|
1768
|
0 |
0 |
if (abs $dscr < 5e-15) { } |
|
|
0 |
0 |
elsif ($dscr > 0) { } |
|
1792
|
0 |
0 |
if (abs $dscr < 5e-15) { } |
|
1795
|
0 |
0 |
if (abs $d0 < 5e-15) { } |
|
1815
|
0 |
0 |
$d1 == $cs ? : |
|
1830
|
0 |
0 |
if $dscr > 0 or abs Im($sol) < 1e-15 |
|
1839
|
0 |
0 |
$in == $y1 ? : |
|
1840
|
0 |
0 |
$in == $y2 ? : |
|
1843
|
0 |
0 |
if $_ > $lim0 |
|
1878
|
0 |
0 |
if ($#{$$self[1];} > 1) { } |
|
1881
|
0 |
0 |
unless $#{$$self[1];} == $#{$$self[2];} |
|
1906
|
0 |
0 |
if ($self->[1][0] > $self->[1][-1]) |
|
1942
|
0 |
0 |
if $self->[2][$_] >= $lo |
|
1945
|
0 |
0 |
if @ix < 4 |
|
1948
|
0 |
0 |
if (@{$self->[1];} == 2) { } |
|
1976
|
0 |
0 |
if (@new or $self->[2][$i] <= $hi) |
|
1979
|
0 |
0 |
@{$self->[1];} > 2 ? : |
|
2025
|
0 |
0 |
if @ix < 4 |
|
2028
|
0 |
0 |
if (@{$self->[1];} == 2) { } |
|
2056
|
0 |
0 |
if (@new or $self->[2][$i] >= $lo) |
|
2059
|
0 |
0 |
@{$self->[1];} > 2 ? : |
|
2087
|
0 |
0 |
if (defined($in = $hash->{'input'})) { } |
|
2090
|
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) { } |
|
2116
|
0 |
0 |
if (defined($out = $hash->{'output'})) { } |
|
2119
|
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) { } |
|
2145
|
0 |
0 |
if (defined($type = $hash->{'type'})) |
|
2148
|
0 |
0 |
unless $type =~ /^(natural|akima)$/ |
|
2156
|
0 |
0 |
if (defined($damp = $hash->{'damp'})) |
|
2159
|
0 |
0 |
unless &Scalar::Util::looks_like_number($damp) and $damp >= 0 |
|
2167
|
0 |
0 |
unless @{$self->[1];} == 2 or @{$self->[1];} == @{$self->[2];} |
|
2179
|
0 |
0 |
if (defined($fix = $hash->{'fix_hl'})) |
|
2182
|
0 |
0 |
unless $pok = $self->[2][-1] > $self->[2][0] |
|
2185
|
0 |
0 |
unless $fok = &Scalar::Util::looks_like_number($fix) && $fix >= -1 && $fix <= 1 |
|
2191
|
0 |
0 |
if $pok and $fok and $fix < 0 || grep({$_ <= $limit;} monotonic($self, 'output')) |
|
2196
|
0 |
0 |
if (defined($fix = $hash->{'fix_sh'})) |
|
2199
|
0 |
0 |
unless $pok = $self->[2][-1] > $self->[2][0] |
|
2202
|
0 |
0 |
unless $fok = &Scalar::Util::looks_like_number($fix) && $fix >= -1 && $fix <= 1 |
|
2208
|
0 |
0 |
if $pok and $fok and $fix < 0 || grep({$_ >= $limit;} monotonic($self, 'output')) |
|
2229
|
0 |
0 |
unless $n == int $n and $n >= 2 |
|
2249
|
0 |
0 |
$_ > 1 ? : |
|
|
0 |
0 |
$_ < 0 ? : |