line |
true |
false |
branch |
19
|
0 |
1 |
if $INC{'Math/GSL/Matrix.pm'} |
20
|
0 |
1 |
if $INC{'Math/MatrixReal.pm'} |
24
|
0 |
1 |
if eval {
do {
require Math::GSL;
require Math::GSL::Matrix;
1
}
} |
31
|
1 |
0 |
if eval {
do {
require Math::MatrixReal;
1
}
} |
73
|
0 |
0 |
if (wantarray) { } |
81
|
0 |
0 |
if (wantarray) { } |
127
|
0 |
1 |
if $rs == 1 or $cs == 1 |
133
|
4 |
0 |
if (not $v or $v < $$m[$i - 1][$j - 1]) |
141
|
1 |
0 |
wantarray ? : |
147
|
0 |
1 |
if $rs == 1 or $cs == 1 |
153
|
1 |
3 |
if (not $v or $v > $$m[$i - 1][$j - 1]) |
161
|
1 |
0 |
wantarray ? : |
170
|
0 |
0 |
if @$row > $nr_rows |
187
|
0 |
0 |
if @$col > $nr_columns |
212
|
1 |
2 |
if ref $argument eq "Math::Matrix::MaybeGSL" |
213
|
3 |
0 |
if ref $object eq "Math::Matrix::MaybeGSL" |
215
|
1 |
2 |
if (defined $flag and $flag) { } |
231
|
1 |
0 |
if ref $object eq "Math::Matrix::MaybeGSL" |
232
|
1 |
0 |
if ref $argument eq "Math::Matrix::MaybeGSL" |
242
|
0 |
1 |
unless open my $fh, ">", $filename |
251
|
2 |
2 |
unless $c == $cols - 1 |
263
|
0 |
1 |
unless open my $fh, "<", $filename |
281
|
4 |
2 |
unless $_ |
291
|
0 |
0 |
unless -f $filename |
294
|
0 |
0 |
unless $fh |
298
|
0 |
0 |
if $err |
304
|
0 |
0 |
if $err |
316
|
0 |
0 |
unless $fh |
325
|
0 |
0 |
if $err |
330
|
0 |
0 |
if $err |
344
|
0 |
0 |
if Math::GSL::Matrix::gsl_matrix_get($raw_matrix, $i, $j) |