| line |
true |
false |
branch |
|
149
|
2 |
50 |
$n->getndims == 0 ? : |
|
|
13 |
52 |
!(my $was_pdl = UNIVERSAL::isa($n, 'PDL')) ? : |
|
153
|
50 |
15 |
unless (defined $out) |
|
158
|
52 |
13 |
$was_pdl ? : |
|
251
|
8 |
39 |
unless defined $opt |
|
253
|
0 |
47 |
unless UNIVERSAL::isa($x, "PDL") and $x->dims >= 2 and $x->dim(0) == $x->dim(1) |
|
260
|
37 |
10 |
if (exists $opt->{'lu'} and ref $opt->{'lu'} eq 'ARRAY' and ref $opt->{'lu'}[0] eq 'PDL') { } |
|
267
|
1 |
9 |
if ref $opt->{'lu'} eq "ARRAY" |
|
270
|
47 |
0 |
defined $lu ? : |
|
272
|
0 |
47 |
if exists $opt->{'det'} |
|
274
|
1 |
46 |
unless ($det->nelem > 1 or $det) |
|
276
|
1 |
0 |
if $opt->{'s'} |
|
282
|
43 |
3 |
unless $x->is_inplace |
|
337
|
4 |
38 |
unless defined $opt |
|
339
|
1 |
41 |
if (exists $opt->{'lu'} and ref $opt->{'lu'} eq 'ARRAY') { } |
|
344
|
37 |
4 |
if exists $opt->{'lu'} |
|
346
|
41 |
1 |
defined $lu ? : |
|
392
|
0 |
6 |
unless UNIVERSAL::isa($x, "PDL") and $x->getndims >= 2 and ($n = $x->dim(0)) == $x->dim(1) |
|
397
|
0 |
6 |
if $n == 1 |
|
398
|
0 |
6 |
if ($n == 2) |
|
402
|
5 |
1 |
if ($n == 3) |
|
424
|
0 |
2 |
if ($el == 0)->all |
|
771
|
0 |
58 |
if not UNIVERSAL::isa($in, "PDL") or $in->ndims < 2 or $in->dim(0) != $in->dim(1) |
|
780
|
2 |
56 |
$inplace ? : |
|
782
|
0 |
58 |
if (defined $permute) { } |
|
783
|
0 |
0 |
if not UNIVERSAL::isa($permute, "PDL") or $permute->ndims != 1 or $permute->dim(0) != $out->dim(0) |
|
792
|
0 |
58 |
if (defined $parity) { } |
|
793
|
0 |
0 |
if not UNIVERSAL::isa($parity, "PDL") or $parity->dim(0) != 1 |
|
803
|
0 |
58 |
if (($scales == 0)->sum) |
|
809
|
0 |
58 |
if $tmprow->type < double() |
|
815
|
12 |
148 |
$row < $col ? : |
|
816
|
92 |
68 |
if ($klim > 0) |
|
827
|
68 |
57 |
if ($col < $n1) |
|
851
|
1 |
67 |
unless $notbig->isempty |
|
859
|
57 |
0 |
wantarray ? : |
|
925
|
0 |
0 |
if not UNIVERSAL::isa($in, "PDL") or $in->ndims < 2 or $in->dim(0) != $in->dim(1) |
|
934
|
0 |
0 |
$inplace ? : |
|
936
|
0 |
0 |
if (defined $perm) { } |
|
937
|
0 |
0 |
if not UNIVERSAL::isa($perm, "PDL") or $perm->ndims != 1 or $perm->dim(0) != $out->dim(0) |
|
946
|
0 |
0 |
if (defined $par) { } |
|
947
|
0 |
0 |
if not UNIVERSAL::isa($par, "PDL") or $par->nelem != 1 |
|
960
|
0 |
0 |
$row < $col ? : |
|
961
|
0 |
0 |
if ($klim > 0) |
|
972
|
0 |
0 |
if ($col < $n1) |
|
979
|
0 |
0 |
wantarray ? : |
|
1085
|
0 |
52 |
if $PDL::debug |
|
1086
|
2 |
50 |
if (@_ == 3) { } |
|
|
50 |
0 |
elsif (@_ == 4) { } |
|
1092
|
0 |
52 |
unless defined $lu |
|
1095
|
0 |
52 |
unless UNIVERSAL::isa($lu, "PDL") and UNIVERSAL::isa($perm, "PDL") and UNIVERSAL::isa($y, "PDL") |
|
1122
|
0 |
52 |
if $PDL::debug |
|
1125
|
0 |
52 |
unless ($ludims->slice(0) == $m and $ludims->slice(1) == $m and $permdims->slice(0) == $m and $bdims->slice(0) == $m) |
|
1133
|
0 |
52 |
unless ($lunumthr == $permnumthr and ($ludims->slice("1:-1") == $permdims)->all) |
|
1138
|
4 |
48 |
if ($bnumthr == $permnumthr and ($bdims == $permdims)->all) |
|
1139
|
0 |
4 |
if $PDL::debug |
|
1160
|
49 |
3 |
unless $y->is_inplace |
|
1161
|
0 |
52 |
if $PDL::debug |
|
1165
|
0 |
52 |
if ($out->ndims < $lu->ndims - 1) |
|
1166
|
0 |
0 |
if $PDL::debug |
|
1194
|
3 |
49 |
if ($y->is_inplace) |
|
1195
|
2 |
1 |
unless PDL::all($y->shape == $out->shape) |