line |
true |
false |
branch |
45
|
0 |
5 |
if (@_) |
48
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
79
|
0 |
0 |
if (@_) |
82
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
110
|
0 |
0 |
if (@_) |
113
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'ARRAY';} @{$_[0];})) { } |
|
0 |
0 |
elsif (@_ == 1 and UNIVERSAL::isa($_[0], 'Math::Matrix')) { } |
119
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
129
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
155
|
0 |
38 |
if (@_) |
158
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({not ref $_;} @{$_[0];})) { } |
186
|
0 |
0 |
if (@_) |
189
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'CODE';} @{$_[0];})) { } |
221
|
0 |
0 |
if ref $_[-1] eq 'ARRAY' |
227
|
0 |
0 |
unless @_ == @{$gsa;} |
228
|
0 |
0 |
if not ref $_ |
|
0 |
0 |
unless @_ == grep({$_ == int $_ if not ref $_;} @_) |
229
|
0 |
0 |
if $_[$_] >= 0 |
|
0 |
0 |
unless @_ == grep({$_[$_] < $gsa->[$_] if $_[$_] >= 0;} 0 .. $#_) |
246
|
0 |
0 |
if (defined $ref) |
252
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
279
|
0 |
0 |
unless @_ == 3 |
297
|
0 |
0 |
unless @_ == 4 |
358
|
0 |
0 |
if ($attr eq 'clut_bytes') { } |
|
0 |
0 |
elsif ($attr eq 'gsa') { } |
|
0 |
0 |
elsif ($attr eq 'udf') { } |
|
0 |
0 |
elsif ($attr eq 'slice') { } |
361
|
0 |
0 |
if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { } |
377
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { } |
393
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { } |
409
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { } |
|
0 |
0 |
elsif ($hash->{$attr} eq 'log') { } |
418
|
0 |
0 |
if (defined $self->[0]{'log'} and ref $self->[0]{'log'} eq 'HASH') |
448
|
0 |
0 |
unless ref $self->[3][0] eq 'CODE' |
457
|
0 |
0 |
if not ref $_ |
|
0 |
0 |
unless @{$gsa;} == grep({$_ == int $_ if not ref $_;} @{$gsa;}) |
458
|
0 |
0 |
unless 0 == grep({$_ < 2;} @{$gsa;}) |
459
|
0 |
0 |
unless $ci > 0 and $ci < 16 |
460
|
0 |
0 |
unless $co > 0 and $co < 16 |
474
|
0 |
0 |
unless @slice |
485
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
506
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
509
|
0 |
0 |
if (@_ == $h + 2 and UNIVERSAL::isa($_[1], 'Math::Matrix')) { } |
|
0 |
0 |
elsif (@_ == $h + 2 and ref $_[1] eq 'ARRAY') { } |
|
0 |
0 |
elsif (@_ == $h + 1 + grep({&Scalar::Util::looks_like_number($_);} @_)) { } |
518
|
0 |
0 |
if (not ref $_[1][0] and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_);} @{$_[1];})) { } |
|
0 |
0 |
elsif (ref $_[1][0] eq 'ARRAY' and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_->[0]) if ref $_ eq 'ARRAY';} @{$_[1];})) { } |
524
|
0 |
0 |
if ref $_ eq 'ARRAY' |
572
|
0 |
0 |
if defined $_ |
|
0 |
0 |
if not defined $_ |
|
0 |
0 |
unless grep({++$i;
push @si, $i if defined $_;} @{$in;}) == grep({++$j;
push @so, $j if not defined $_;} @{$out;}) |
581
|
0 |
0 |
defined $init->[$i] ? : |
648
|
0 |
0 |
if $error < $elim |
678
|
0 |
0 |
if (defined $self->[3][0] and defined $self->[3][1]) { } |
|
0 |
0 |
elsif (defined $self->[3][0] ^ defined $self->[3][1]) { } |
681
|
0 |
0 |
if (wantarray) { } |
702
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;}) |
710
|
0 |
0 |
if ($lapack) { } |
713
|
0 |
0 |
if (defined $ext) { } |
731
|
0 |
0 |
if (defined $ext) { } |
774
|
0 |
0 |
if (wantarray) { } |
780
|
0 |
0 |
if (defined $ext) |
817
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
0 |
0 |
defined $p ? : |
820
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
842
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
867
|
0 |
0 |
if (defined $self->[3][0]) |
875
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;}) |
883
|
0 |
0 |
if ($lapack) { } |
889
|
0 |
0 |
if (defined $ext) |
922
|
0 |
0 |
if (defined $ext) |
965
|
0 |
0 |
if (defined $self->[3][0]) { } |
|
0 |
0 |
elsif ($lapack) { } |
982
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { } |
998
|
0 |
0 |
if (defined $ext) |
1021
|
0 |
0 |
unless $_ < 0 |
|
0 |
0 |
if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { } |
1048
|
0 |
0 |
if (defined $ext) |
1074
|
0 |
0 |
UNIVERSAL::isa($in, 'Math::Matrix') ? : |
1103
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
1114
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
1153
|
0 |
0 |
if ($ox[$i] < 0) { } |
|
0 |
0 |
elsif ($ox[$i] > $ux) { } |
1174
|
0 |
0 |
unless ($cp = $self->[5]{$key}) |
1186
|
0 |
0 |
if $i >> $j & 1 |
1225
|
0 |
0 |
unless ($cp = $self->[5]{'ext'}) |
1234
|
0 |
0 |
$i >> $j & 1 ? : |
1285
|
0 |
0 |
if ($i >> $j & 1) { } |
1336
|
0 |
0 |
if ($i >> $k & 1) { } |
1339
|
0 |
0 |
if $j != $k |
1344
|
0 |
0 |
$j != $k ? : |
1381
|
0 |
0 |
if (abs $_ > $dmax) |
1499
|
0 |
0 |
if ($attr eq 'array') { } |
|
0 |
0 |
elsif ($attr eq 'clut_bytes') { } |
|
0 |
0 |
elsif ($attr eq 'gsa') { } |
|
0 |
0 |
elsif ($attr eq 'udf') { } |
1502
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'ARRAY';} @{$$hash{$attr};})) { } |
|
0 |
0 |
elsif (UNIVERSAL::isa($hash->{$attr}, 'Math::Matrix')) { } |
1508
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
1518
|
0 |
0 |
if defined $INC{'ICC/Support/Lapack.pm'} |
1532
|
0 |
0 |
if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { } |
1548
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({&Scalar::Util::looks_like_number($_);} @{$$hash{$attr};})) { } |
1564
|
0 |
0 |
if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { } |
1615
|
1 |
3 |
if ($bytes == 1) { } |
|
3 |
0 |
elsif ($bytes == 2) { } |
|
0 |
0 |
elsif ($bytes == 4) { } |
1664
|
0 |
4 |
if defined $INC{'ICC/Support/Lapack.pm'} |
1735
|
1 |
3 |
if ($bytes == 1) { } |
|
3 |
0 |
elsif ($bytes == 2) { } |
|
0 |
0 |
elsif ($bytes == 4) { } |
1741
|
0 |
35937 |
$_ > 1 ? : |
|
0 |
35937 |
$_ < 0 ? : |
1752
|
0 |
280041 |
$_ > 1 ? : |
|
0 |
280041 |
$_ < 0 ? : |
1796
|
0 |
0 |
unless $ci > 0 and $ci < 16 |
1799
|
0 |
0 |
unless $co > 0 and $co < 16 |