| line |
true |
false |
branch |
|
48
|
0 |
5 |
if (@_) |
|
51
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
|
0 |
0 |
elsif (@_ == 2 or @_ == 3) { } |
|
60
|
0 |
0 |
if $info = fit($self, @_) |
|
103
|
0 |
0 |
unless (defined $pcs) |
|
168
|
0 |
0 |
unless (defined $pcs) |
|
230
|
0 |
0 |
unless (defined $pcs) |
|
266
|
0 |
0 |
if (defined $self->[1][0][0]) |
|
269
|
0 |
0 |
unless @{$self->[1];} == @{$self->[1][0];} |
|
275
|
0 |
0 |
if (defined $self->[2][0]) |
|
309
|
0 |
0 |
if (@_) |
|
312
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
340
|
0 |
2 |
if (@_) |
|
343
|
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')) { } |
|
377
|
0 |
4 |
if (@_) |
|
380
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({not ref $_;} @{$_[0];})) { } |
|
410
|
0 |
0 |
if (defined $pri) { } |
|
413
|
0 |
0 |
if (UNIVERSAL::isa($pri, 'Math::Matrix') || ref $pri eq 'ARRAY' and @{$pri;} == 3 and @{$pri->[0];} == 3) { } |
|
428
|
0 |
0 |
if (defined $self->[1]) { } |
|
465
|
0 |
0 |
unless $lapack |
|
468
|
0 |
0 |
unless defined $oflag |
|
471
|
0 |
0 |
unless ref $in eq 'ARRAY' and ref $in->[0] eq 'ARRAY' and not ref $in->[0][0] or UNIVERSAL::isa($in, 'Math::Matrix') |
|
474
|
0 |
0 |
unless ref $out eq 'ARRAY' and ref $out->[0] eq 'ARRAY' and not ref $out->[0][0] or UNIVERSAL::isa($out, 'Math::Matrix') |
|
477
|
0 |
0 |
unless $#{$in;} == $#{$out;} |
|
483
|
0 |
0 |
if $info < 0 |
|
484
|
0 |
0 |
if $info > 0 |
|
503
|
0 |
0 |
if ($oflag) { } |
|
531
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
534
|
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($_);} @_)) { } |
|
543
|
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];})) { } |
|
549
|
0 |
0 |
if ref $_ eq 'ARRAY' |
|
596
|
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;}) |
|
607
|
0 |
0 |
if ($lapack) { } |
|
632
|
0 |
0 |
if $info |
|
697
|
0 |
0 |
if (wantarray) { } |
|
723
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
726
|
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($_);} @_)) { } |
|
735
|
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];})) { } |
|
741
|
0 |
0 |
if ref $_ eq 'ARRAY' |
|
784
|
0 |
0 |
unless @_ == 3 |
|
802
|
0 |
0 |
unless @_ == 4 |
|
864
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
867
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
879
|
0 |
0 |
if ($rows < 0 and $off < 0) { } |
|
887
|
0 |
0 |
if ($rows >= 0) |
|
906
|
0 |
0 |
if ($off >= 0) |
|
935
|
0 |
0 |
if (@{$in;} == grep({&Scalar::Util::looks_like_number($_);} @{$in;})) { } |
|
946
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
976
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
979
|
0 |
0 |
unless @_ == @{$self->[1][0];} |
|
982
|
0 |
0 |
defined $self->[2][0] ? : |
|
1009
|
0 |
0 |
unless @{$in;} == @{$self->[1][0];} |
|
1012
|
0 |
0 |
if ($lapack) { } |
|
1041
|
0 |
0 |
unless @{$in->[0];} == @{$self->[1][0];} |
|
1044
|
0 |
0 |
if ($lapack) { } |
|
1052
|
0 |
0 |
defined $self->[2][0] ? : |
|
1073
|
0 |
0 |
UNIVERSAL::isa($in, 'Math::Matrix') ? : |
|
1105
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
1108
|
0 |
0 |
unless @_ == @{$self->[1][0];} |
|
1124
|
0 |
0 |
unless @{$in;} == @{$self->[1];} |
|
1133
|
0 |
0 |
defined $self->[2][$i] ? : |
|
1157
|
0 |
0 |
unless @{$in->[0];} == @{$self->[1];} |
|
1160
|
0 |
0 |
if ($lapack) { } |
|
1166
|
0 |
0 |
if $info |
|
1169
|
0 |
0 |
UNIVERSAL::isa($in, 'Math::Matrix') ? : |
|
1183
|
0 |
0 |
defined $self->[2][$i] ? : |
|
1193
|
0 |
0 |
UNIVERSAL::isa($in, 'Math::Matrix') ? : |
|
1228
|
0 |
0 |
if (defined $hash->{'header'}) |
|
1231
|
0 |
0 |
if (ref $hash->{'header'} eq 'HASH') { } |
|
1246
|
0 |
0 |
if (defined $hash->{'matrix'}) |
|
1252
|
0 |
0 |
if (ref $value eq 'ARRAY' and @{$value;} == grep({ref $_ eq 'ARRAY';} @{$value;})) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($value, 'Math::Matrix')) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($value) and $value == int $value and $value > 0) { } |
|
1279
|
0 |
0 |
if (defined $hash->{'offset'}) |
|
1285
|
0 |
0 |
if (ref $value eq 'ARRAY' and @{$value;} == grep({not ref $_;} @{$value;})) { } |
|
|
0 |
0 |
elsif (&Scalar::Util::looks_like_number($value)) { } |
|
1294
|
0 |
0 |
if (defined $self->[1]) { } |
|
1332
|
4 |
0 |
if ($format == 2) { } |
|
|
0 |
0 |
elsif ($format == 4) { } |
|
1346
|
2 |
2 |
if ($oflag) |
|
1371
|
0 |
0 |
if ($oflag) |
|
1442
|
2 |
0 |
if ($format == 2) { } |
|
|
0 |
0 |
elsif ($format == 4) { } |
|
1453
|
2 |
0 |
if ($oflag) |
|
1456
|
2 |
0 |
defined $self->[2] && @{$self->[2];} > 0 ? : |
|
1472
|
0 |
0 |
if ($oflag) |
|
1475
|
0 |
0 |
defined $self->[2] && @{$self->[2];} > 0 ? : |
|
1505
|
0 |
0 |
unless $ci > 0 and $ci < 16 |
|
1508
|
0 |
0 |
unless $co > 0 and $co < 16 |