| line |
true |
false |
branch |
|
162
|
0 |
0 |
$n->getndims > 0 ? : |
|
|
0 |
1 |
UNIVERSAL::isa($n, 'PDL') ? : |
|
258
|
4 |
31 |
unless defined $opt |
|
261
|
0 |
35 |
unless UNIVERSAL::isa($x, 'PDL') and $x->dims >= 2 and $x->dim(0) == $x->dim(1) |
|
268
|
29 |
6 |
if (exists $opt->{'lu'} and ref $opt->{'lu'} eq 'ARRAY' and ref $opt->{'lu'}[0] eq 'PDL') { } |
|
275
|
1 |
5 |
if ref $opt->{'lu'} eq 'ARRAY' |
|
278
|
35 |
0 |
defined $lu ? : |
|
280
|
0 |
35 |
if exists $opt->{'det'} |
|
282
|
1 |
34 |
unless ($det->nelem > 1 or $det) |
|
284
|
1 |
0 |
if $opt->{'s'} |
|
292
|
34 |
0 |
unless $x->is_inplace |
|
343
|
3 |
31 |
unless defined $opt |
|
346
|
1 |
33 |
if (exists $opt->{'lu'} and ref $opt->{'lu'} eq 'ARRAY') { } |
|
351
|
30 |
3 |
if exists $opt->{'lu'} |
|
354
|
34 |
0 |
defined $lu ? : |
|
396
|
0 |
6 |
unless UNIVERSAL::isa($x, 'PDL') and $x->getndims >= 2 and ($n = $x->dim(0)) == $x->dim(1) |
|
401
|
0 |
6 |
if $n == 1 |
|
402
|
0 |
6 |
if ($n == 2) |
|
406
|
5 |
1 |
if ($n == 3) |
|
429
|
0 |
2 |
if ($el == 0)->all |
|
501
|
0 |
1 |
if $#d < 1 or $d[0] != $d[1] |
|
506
|
0 |
1 |
if $err == 0 |
|
509
|
0 |
0 |
if $err > 1e-05 and $PDL::debug |
|
526
|
0 |
1 |
if wantarray |
|
619
|
0 |
2 |
if $#d < 1 or $d[0] != $d[1] |
|
622
|
2 |
0 |
if ($deviation <= 1e-05) { } |
|
634
|
2 |
0 |
if wantarray |
|
638
|
0 |
0 |
if ($PDL::verbose or $PDL::debug) |
|
641
|
0 |
0 |
unless ($PDL::eigens_bug_ack or $ENV{'PDL_EIGENS_ACK'}) |
|
655
|
0 |
0 |
if wantarray |
|
823
|
0 |
42 |
if not UNIVERSAL::isa($in, 'PDL') or $in->ndims < 2 or $in->dim(0) != $in->dim(1) |
|
832
|
0 |
42 |
$inplace ? : |
|
835
|
0 |
42 |
if (defined $permute) { } |
|
836
|
0 |
0 |
if not UNIVERSAL::isa($permute, 'PDL') or $permute->ndims != 1 or $permute->dim(0) != $out->dim(0) |
|
845
|
0 |
42 |
if (defined $parity) { } |
|
846
|
0 |
0 |
if not UNIVERSAL::isa($parity, 'PDL') or $parity->dim(0) != 1 |
|
856
|
0 |
42 |
if (($scales == 0)->sum) |
|
867
|
12 |
116 |
$row < $col ? : |
|
868
|
76 |
52 |
if ($klim > 0) |
|
879
|
52 |
42 |
if ($col < $n1) |
|
915
|
42 |
0 |
if (wantarray) |
|
981
|
0 |
0 |
if not UNIVERSAL::isa($in, 'PDL') or $in->ndims < 2 or $in->dim(0) != $in->dim(1) |
|
990
|
0 |
0 |
$inplace ? : |
|
993
|
0 |
0 |
if (defined $perm) { } |
|
994
|
0 |
0 |
if not UNIVERSAL::isa($perm, 'PDL') or $perm->ndims != 1 or $perm->dim(0) != $out->dim(0) |
|
1003
|
0 |
0 |
if (defined $par) { } |
|
1004
|
0 |
0 |
if not UNIVERSAL::isa($par, 'PDL') or $par->nelem != 1 |
|
1017
|
0 |
0 |
$row < $col ? : |
|
1018
|
0 |
0 |
if ($klim > 0) |
|
1029
|
0 |
0 |
if ($col < $n1) |
|
1037
|
0 |
0 |
if (wantarray) |
|
1100
|
0 |
35 |
if $PDL::debug |
|
1101
|
1 |
34 |
if (@_ == 3) { } |
|
|
34 |
0 |
elsif (@_ == 4) { } |
|
1107
|
0 |
35 |
unless defined $lu |
|
1110
|
0 |
35 |
unless UNIVERSAL::isa($lu, 'PDL') and UNIVERSAL::isa($perm, 'PDL') and UNIVERSAL::isa($y, 'PDL') |
|
1137
|
0 |
35 |
if $PDL::debug |
|
1140
|
0 |
35 |
unless ($ludims->slice(0) == $m and $ludims->slice(1) == $m and $permdims->slice(0) == $m and $bdims->slice(0) == $m) |
|
1148
|
0 |
35 |
unless ($lunumthr == $permnumthr and ($ludims->slice([1, -1]) == $permdims)->all) |
|
1153
|
1 |
34 |
if ($bnumthr == $permnumthr and ($bdims == $permdims)->all) |
|
1154
|
0 |
1 |
if $PDL::debug |
|
1178
|
3 |
32 |
if ($nontrivial) { } |
|
1179
|
0 |
3 |
if ($y->is_inplace) { } |
|
1188
|
0 |
32 |
$y->is_inplace ? : |
|
1190
|
0 |
35 |
if $PDL::debug |
|
1194
|
0 |
35 |
if ($out->ndims < $lu->ndims - 1) |
|
1195
|
0 |
0 |
if $PDL::debug |