Branch Coverage

blib/lib/Math/Matrix.pm
Criterion Covered Total %
branch 919 1472 62.4


line true false branch
23 3 3 if ($swap)
24 2 1 if not ref $y and $y == 0
39 1 2 if ($swap)
164 11 936 if (ref $that and @_ == 0) { }
186 16 920 if (@_ == 1 and not ref $_[0]) { }
643 277 elsif (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} > 0 and ref $_[0][0] eq 'ARRAY') { }
211 935 1 if (@$data)
220 0 1828 unless ref $row eq 'ARRAY'
228 935 893 if ($i == 0) { }
231 0 893 unless @$row == $ncol
238 695 240 if $ncol
296 0 3 if @_ < 2
297 0 3 if @_ > 4
300 0 3 if ref $class
304 0 3 unless ref $sub eq 'CODE'
307 2 1 @_ == 1 ? :
0 3 @_ == 0 ? :
341 0 2 if @_ < 1
344 0 2 if ref $class
350 8 0 unless defined &blessed($x) and $x->isa($class)
352 4 4 if ($x->is_vector) { }
383 0 1 if @_ < 1
386 0 1 if ref $class
410 88 3 if (@_) { }
413 3 0 if ($ref) { }
415 0 3 unless $mx == $nx
462 0 5 if @_ < 2
463 0 5 if @_ > 2
489 0 6 if @_ < 2
490 0 6 if @_ > 4
493 0 6 if ref $class
497 4 1 @_ == 1 ? :
1 5 @_ == 0 ? :
500 0 6 unless $m == $n
521 0 13 if @_ < 1
522 0 13 if @_ > 3
542 0 5 if @_ < 1
543 0 5 if @_ > 3
563 0 5 if @_ < 1
564 0 5 if @_ > 3
587 0 5 if @_ < 1
588 0 5 if @_ > 3
613 0 33 if @_ < 2
614 0 33 if @_ > 4
617 0 33 if ref $class
621 5 23 @_ == 1 ? :
5 28 @_ == 0 ? :
652 0 6 if @_ < 1
653 0 6 if @_ > 3
656 0 6 if ref $class
659 2 3 @_ == 1 ? :
1 5 @_ == 0 ? :
692 0 6 if @_ < 2
693 0 6 if @_ > 4
696 0 6 if ref $class
701 3 3 if (ref $lim eq 'ARRAY') { }
708 2 2 @_ == 1 ? :
2 4 @_ == 0 ? :
742 0 6 if @_ < 1
743 0 6 if @_ > 3
746 0 6 if ref $class
749 1 4 @_ == 1 ? :
1 5 @_ == 0 ? :
764 4 2 if @$x > $nelm
781 0 127 if @_ > 1
785 0 127 unless $class
820 1 1 if ref $diag[0] eq 'ARRAY'
823 0 2 if $len == 0
872 4 0 if (ref $_[0] eq 'ARRAY') { }
875 3 1 if (ref $_[1] eq 'ARRAY')
878 2 1 if (ref $_[2] eq 'ARRAY')
887 0 4 if $len == 0
893 1 3 if scalar @up_d == 0
894 2 2 if scalar @low_d == 0
934 0 4 if @_ < 1
945 6 3 unless defined &blessed($x) and $x->isa($class)
998 0 56 if @_ < 1
999 0 56 if @_ > 1
1015 0 111 if @_ < 1
1016 0 111 if @_ > 1
1018 33 78 $x->nelm == 1 ? :
1032 0 52 if @_ < 1
1033 0 52 if @_ > 1
1035 27 25 $x->is_col || $x->is_row ? :
1049 0 73 if @_ < 1
1050 0 73 if @_ > 1
1052 24 49 $x->nrow == 1 ? :
1066 0 81 if @_ < 1
1067 0 81 if @_ > 1
1069 11 70 $x->ncol == 1 ? :
1083 0 78 if @_ < 1
1084 0 78 if @_ > 1
1087 75 3 $nrow == $ncol ? :
1107 0 50 if @_ < 1
1108 0 50 if @_ > 1
1112 6 44 unless $nrow == $ncol
1116 19 213 unless $x->[$i][$j] == $x->[$j][$i]
1142 0 25 if @_ < 1
1143 0 25 if @_ > 1
1147 3 22 unless $nrow == $ncol
1152 17 21 unless $x->[$i][$i] == 0
1159 3 3 unless $x->[$i][$j] == -$x->[$j][$i]
1185 0 23 if @_ < 1
1186 0 23 if @_ > 1
1213 0 23 if @_ < 1
1214 0 23 if @_ > 1
1218 3 20 unless $nrow == $ncol
1225 12 59 unless $$x[$i + $k][$k] == $first
1234 1 32 unless $x->[$k][$j + $k] == $first
1253 0 25 if @_ < 1
1254 0 25 if @_ > 1
1271 0 25 if @_ < 1
1272 0 25 if @_ > 1
1289 0 75 if @_ < 1
1290 0 75 if @_ > 2
1297 3 72 if $nrow * $ncol == 0
1299 48 24 @_ ? :
1302 69 78 if $x->[$i][$j] != $c
1321 0 25 if @_ < 1
1322 0 25 if @_ > 1
1326 3 22 unless $nrow == $ncol
1330 23 13 $i == $j ? :
19 17 if $x->[$i][$j] != ($i == $j ? 1 : 0)
1355 0 25 if @_ < 1
1356 0 25 if @_ > 1
1360 3 22 unless $nrow == $ncol
1365 8 39 $i + $j == $imax ? :
19 28 if $x->[$i][$j] != ($i + $j == $imax ? 1 : 0)
1390 0 25 if @_ < 1
1391 0 25 if @_ > 1
1399 20 60 if $val != 0 and $val != 1
1424 0 25 if @_ < 1
1425 0 25 if @_ > 1
1429 3 22 unless $nrow == $ncol
1437 17 57 if $val != 0 and $val != 1
1438 16 41 if ($val == 1)
1439 0 16 if ++$rowsum->[$i] > 1
1440 0 16 if ++$colsum->[$j] > 1
1446 0 10 if $rowsum->[$i] != 1
1447 0 10 if $colsum->[$i] != 1
1465 0 25 if @_ < 1
1466 0 25 if @_ > 1
1473 0 347 unless $x->[$i][$j] == CORE::int $x->[$i][$j]
1501 0 25 if @_ < 1
1502 0 25 if @_ > 1
1528 0 25 if @_ < 1
1529 0 25 if @_ > 1
1556 0 25 if @_ < 1
1557 0 25 if @_ > 1
1584 0 25 if @_ < 1
1585 0 25 if @_ > 1
1612 0 25 if @_ < 1
1613 0 25 if @_ > 1
1641 0 25 if @_ < 1
1642 0 25 if @_ > 1
1669 0 25 if @_ < 1
1670 0 25 if @_ > 1
1698 0 25 if @_ < 1
1699 0 25 if @_ > 1
1727 0 225 if @_ < 2
1728 0 225 if @_ > 2
1733 27 198 unless $nrow == $ncol
1736 0 198 unless defined $k
1737 0 198 if (ref $k)
1738 0 0 unless defined &blessed($k) and $k->isa($class)
1740 0 0 unless $k->is_scalar
1744 62 136 if $nrow <= $k
1745 30 106 if $nrow == $k + 1
1749 83 105 if $x->[$i][$j] != 0 or $x->[$j][$i] != 0
1785 0 225 if @_ < 2
1786 0 225 if @_ > 2
1791 27 198 unless $nrow == $ncol
1794 0 198 unless defined $k
1795 0 198 if (ref $k)
1796 0 0 unless defined &blessed($k) and $k->isa($class)
1798 0 0 unless $k->is_scalar
1802 62 136 if $nrow <= $k
1803 30 106 if $nrow == $k + 1
1809 71 139 if $x->[$i][$j] != 0
1817 8 81 if $x->[$i][$j] != 0
1845 0 25 if @_ < 1
1846 0 25 if @_ > 1
1852 3 22 unless $nrow == $ncol
1856 16 21 unless $x->[$i][$j] == 0
1883 0 25 if @_ < 1
1884 0 25 if @_ > 1
1890 3 22 unless $nrow == $ncol
1894 20 30 unless $x->[$i][$j] == 0
1921 0 25 if @_ < 1
1922 0 25 if @_ > 1
1928 3 22 unless $nrow == $ncol
1932 16 19 unless $x->[$i][$j] == 0
1959 0 25 if @_ < 1
1960 0 25 if @_ > 1
1966 3 22 unless $nrow == $ncol
1970 20 26 unless $x->[$i][$j] == 0
1997 0 25 if @_ < 1
1998 0 25 if @_ > 1
2004 3 22 unless $nrow == $ncol
2008 16 18 unless $x->[$i][$j] == 0
2035 0 25 if @_ < 1
2036 0 25 if @_ > 1
2042 3 22 unless $nrow == $ncol
2046 20 22 unless $x->[$i][$j] == 0
2073 0 25 if @_ < 1
2074 0 25 if @_ > 1
2080 3 22 unless $nrow == $ncol
2084 16 23 unless $x->[$i][$j] == 0
2111 0 25 if @_ < 1
2112 0 25 if @_ > 1
2118 3 22 unless $nrow == $ncol
2122 20 25 unless $x->[$i][$j] == 0
2155 0 4 if @_ < 1
2156 0 4 if @_ > 1
2165 2 10 unless $x->[$i][$j]
2171 2 2 if wantarray
2189 0 2 if @_ < 1
2190 0 2 if @_ > 1
2199 3 3 $ninf < $_ && $_ < $pinf ? :
2217 0 2 if @_ < 1
2218 0 2 if @_ > 1
2227 2 4 $_ == $pinf || $_ == $ninf ? :
2244 0 2 if @_ < 1
2245 0 2 if @_ > 1
2248 1 5 $_ != $_ ? :
2265 0 12 if @_ < 1
2266 0 12 if @_ > 2
2285 0 12 if @_ < 1
2286 0 12 if @_ > 2
2304 0 12 if @_ < 1
2305 0 12 if @_ > 2
2323 0 12 if @_ < 1
2324 0 12 if @_ > 2
2348 1918 169 $m ? :
2363 0 193 if @_ < 1
2364 0 193 if @_ > 1
2366 164 29 @$x ? :
2380 0 657 if @_ < 1
2381 0 657 if @_ > 1
2397 0 590 if @_ < 1
2398 0 590 if @_ > 1
2400 543 47 @$x ? :
2414 0 6 if @_ < 1
2415 0 6 if @_ > 1
2417 5 1 @$x ? :
2432 0 6 if @_ < 1
2433 0 6 if @_ > 1
2437 4 2 if $nrow != 1
2438 4 2 if $ncol != 1
2472 0 18 if @_ < 1
2473 0 18 if @_ > 1
2483 46 146 if $x->[$i][$j] == 0
2485 52 94 if ($dist > 0) { }
2486 22 30 if $dist > $upper
2488 20 74 if $dist < $lower
2494 9 9 if wantarray
2495 0 9 $lower > $upper ? :
2534 19 44 if $ncoly == 0
2536 22 22 if (defined $ncol) { }
2537 0 22 unless $ncoly == $ncol
2572 15 176 if $nrowy == 0
2574 87 89 if (defined $nrow) { }
2575 0 87 unless $nrowy == $nrow
2603 0 4 if @_ < 2
2604 0 4 if @_ > 2
2609 0 4 unless defined $idx
2610 3 1 if (ref $idx) { }
2611 3 0 unless defined &blessed($idx) and $idx->isa($class)
2624 0 5 if $ix >= $nrowx
2646 0 4 if @_ < 2
2647 0 4 if @_ > 2
2652 0 4 unless defined $idx
2653 3 1 if (ref $idx) { }
2654 3 0 unless defined &blessed($idx) and $idx->isa($class)
2667 0 5 if $jx >= $ncolx
2690 0 5 if @_ < 2
2691 0 5 if @_ > 2
2696 0 5 unless defined $idxdel
2697 4 1 if (ref $idxdel) { }
2698 4 0 unless defined &blessed($idxdel) and $idxdel->isa($class)
2714 9 19 if ($i == CORE::int $idx)
2719 11 9 unless $seen
2740 0 5 if @_ < 2
2741 0 5 if @_ > 2
2746 0 5 unless defined $idxdel
2747 4 1 if (ref $idxdel) { }
2748 4 0 unless defined &blessed($idxdel) and $idxdel->isa($class)
2764 9 19 if ($j == CORE::int $idx)
2769 11 9 unless $seen
2773 4 1 if (@$idxget)
2799 0 11 if scalar @{$self;} != scalar @{$other;}
2845 0 12 if @_ < 1
2853 10 2 if (@_)
2855 0 10 unless defined $offs
2856 0 10 if (ref $offs)
2857 0 0 unless defined &blessed($offs) and $offs->isa($class)
2859 0 0 unless $offs->is_scalar
2863 4 6 if (@_)
2865 0 4 unless defined $len
2866 0 4 if (ref $len)
2867 0 0 unless defined &blessed($len) and $len->isa($class)
2869 0 0 unless $len->is_scalar
2873 2 2 if (@_)
2883 6 6 wantarray ? :
2921 0 22 if @_ < 1
2931 20 2 if (@_)
2933 0 20 unless defined $offs
2934 0 20 if (ref $offs)
2935 0 0 unless defined &blessed($offs) and $offs->isa($class)
2937 0 0 unless $offs->is_scalar
2941 14 6 if (@_)
2943 0 14 unless defined $len
2944 0 14 if (ref $len)
2945 0 0 unless defined &blessed($len) and $len->isa($class)
2947 0 0 unless $len->is_scalar
2951 2 12 if (@_)
2960 0 22 if ($offs > $len)
2969 2 20 if ($offs == $len) { }
4 16 elsif ($offs == 0 and $len == $ncolx) { }
2970 0 2 unless ($repl->is_empty)
2990 14 2 if ($repl->is_empty) { }
3001 6 16 wantarray ? :
3023 1 4 if $ncolx == 0
3042 0 2 if @_ < 1
3043 0 2 if @_ > 1
3062 0 25 if @_ < 1
3063 0 25 if @_ > 1
3086 0 12 if @_ < 1
3087 0 12 if @_ > 2
3104 0 12 if @_ < 1
3105 0 12 if @_ > 2
3110 10 2 if (@_)
3112 2 8 if (ref $n)
3113 1 1 unless defined &blessed($n) and $n->isa($class)
3115 0 2 unless $n->is_scalar
3118 0 10 unless $n == CORE::int $n
3126 1 11 if ($n == 0) { }
5 6 elsif ($n == 1) { }
3 3 elsif ($n == 2) { }
3 0 elsif ($n == 3) { }
3174 0 2 if @_ < 1
3175 0 2 if @_ > 1
3191 0 2 if @_ < 1
3192 0 2 if @_ > 1
3228 0 5 if @_ < 2
3229 0 5 if @_ > 2
3234 0 5 unless defined &blessed($y) and $y->isa('Math::Matrix')
3236 0 5 unless $y->nelm == 2
3292 0 5 if @_ < 2
3293 0 5 if @_ > 2
3298 0 5 unless defined &blessed($y) and $y->isa('Math::Matrix')
3300 0 5 unless $y->nelm == 2
3356 0 30 if @_ < 3
3357 0 30 if @_ > 3
3367 0 30 unless $nelmx == $nelmy
3374 5 25 if ($nrowx == $nrowy and $ncolx == $ncoly) { }
10 15 elsif ($nrowx == 1) { }
6 9 elsif ($ncolx == 1) { }
3382 4 6 if ($ncoly == 1) { }
3402 3 3 if ($nrowy == 1) { }
3450 0 30 if @_ < 1
3451 0 30 if @_ > 1
3458 5 25 if $ncolx == 0
3482 0 19 if @_ < 1
3483 0 19 if @_ > 1
3491 1 18 if $ncolx == 0
3524 0 4 if @_ < 1
3525 0 4 if @_ > 1
3531 1 3 if $n == 0
3533 0 3 unless $v->is_vector
3538 0 9 unless 0 <= $j and $j < $n
3570 0 4 if @_ < 1
3571 0 4 if @_ > 1
3575 0 4 unless $P->is_square
3585 18 9 if $P->[$i][$j] == 0
3586 9 0 if ($P->[$i][$j] == 1)
3587 0 9 if $seen->[$j]++
3595 0 9 unless defined $k
3620 0 12 if @_ < 1
3621 0 12 if @_ > 2
3626 10 2 if (@_)
3628 0 10 if (ref $n)
3629 0 0 unless defined &blessed($n) and $n->isa($class)
3631 0 0 unless $n->is_scalar
3634 0 10 unless $n == CORE::int $n
3642 38 34 $j - $i >= $n ? :
3666 0 12 if @_ < 1
3667 0 12 if @_ > 2
3672 10 2 if (@_)
3674 0 10 if (ref $n)
3675 0 0 unless defined &blessed($n) and $n->isa($class)
3677 0 0 unless $n->is_scalar
3680 0 10 unless $n == CORE::int $n
3688 38 34 $j - $i <= $n ? :
3733 0 1 if $m != $n
3757 0 1 if $m != $n
3760 3 1 if $idx > 0
3762 3 1 if $idx < $m
3790 0 8 if @_ < 2
3791 0 8 if @_ > 2
3796 3 5 unless defined &blessed($y) and $y->isa($class)
3798 5 3 $x->is_scalar || $y->is_scalar ? :
3815 0 5 if @_ < 2
3816 0 5 if @_ > 2
3821 0 5 unless defined &blessed($y) and $y->isa($class)
3826 0 5 unless $nrowx == $nrowy and $ncolx == $ncoly
3853 0 9 if @_ < 2
3854 0 9 if @_ > 2
3882 0 9 if @_ < 2
3883 0 9 if @_ > 2
3888 2 7 unless defined &blessed($y) and $y->isa($class)
3890 5 4 $x->is_scalar || $y->is_scalar ? :
3907 0 6 if @_ < 2
3908 0 6 if @_ > 2
3913 0 6 unless defined &blessed($y) and $y->isa($class)
3918 0 6 unless $nrowx == $nrowy and $ncolx == $ncoly
3945 0 9 if @_ < 2
3946 0 9 if @_ > 2
3987 0 4 if @_ < 1
3988 0 4 if @_ > 1
4025 0 27 if @_ < 2
4026 0 27 if @_ > 2
4031 3 24 unless defined &blessed($y) and $y->isa($class)
4033 8 19 $x->is_scalar || $y->is_scalar ? :
4049 0 34 if @_ < 2
4050 0 34 if @_ > 2
4055 0 34 unless defined &blessed($y) and $y->isa($class)
4063 0 34 unless $nx == $my
4089 0 12 if @_ < 2
4090 0 12 if @_ > 2
4117 0 2 if @_ < 3
4118 0 2 if @_ > 3
4125 0 2 unless defined &blessed($y) and $y->isa($class)
4128 0 2 unless $nx == $my
4132 0 2 unless defined &blessed($z) and $z->isa($class)
4135 0 2 unless $mz == $mx and $nz == $ny
4166 0 4 if @_ < 2
4167 0 4 if @_ > 2
4172 0 4 unless defined &blessed($y) and $y->isa($class)
4279 0 13 if @_ < 2
4280 0 13 if @_ > 2
4284 0 13 unless $x->is_square
4288 0 13 unless defined $n
4289 11 2 if (ref $n)
4290 0 11 unless defined &blessed($n) and $n->isa($class)
4291 0 11 unless $n->is_scalar
4295 0 13 unless $n == CORE::int $n
4297 3 10 if $x->is_empty
4300 2 8 if $n == 0
4301 2 6 if $n == 1
4304 2 4 if $neg
4310 10 5 if $rem
4312 6 9 if $n == 0
4316 2 4 if $neg
4335 0 4 if @_ < 2
4336 0 4 if @_ > 2
4373 0 1 if $m != $n
4394 0 4 if @_ < 1
4414 0 2 if @_ < 1
4415 0 2 if @_ > 1
4470 0 12 if @_ < 2
4476 0 12 unless defined &blessed($A) and $A->isa($class)
4480 1 11 if ($m > $n) { }
1 10 elsif ($m < $n) { }
4500 0 10 if (@_)
4505 0 0 $Config::Config{'uselongdouble'} || $Config::Config{'usequadmath'} ? :
4511 0 0 unless defined $param
4513 0 0 unless @_
4516 0 0 if ($param eq 'MaxIter')
4517 0 0 unless defined $value
4519 0 0 unless $value > 0 and $value == CORE::int $value
4525 0 0 if ($param eq 'RelTol')
4526 0 0 unless defined $value
4528 0 0 unless $value >= 0
4534 0 0 if ($param eq 'AbsTol')
4535 0 0 unless defined $value
4537 0 0 unless $value >= 0
4543 0 0 if ($param eq 'Debug')
4551 0 0 if ($debug)
4577 0 0 $y_norm == 0 ? :
4579 0 0 if ($debug)
4590 0 0 if ($iter == 1 or $abs_err < $abs_err_best or $rel_err < $rel_err_best)
4600 0 0 if ($abs_err_best <= $abs_tol or $rel_err_best <= $rel_tol) { }
4607 0 0 if ($iter == $max_iter)
4629 0 0 if wantarray
4635 0 10 unless $y->nrow == $n
4645 0 10 if $@
4650 0 10 if $@
4701 0 1 if @_ < 2
4707 0 1 unless defined &blessed($A) and $A->isa($class)
4741 0 6 if @_ < 2
4742 0 6 if @_ > 2
4817 0 3 if $mc <= $mr
4822 0 0 if $try++ > $mr
4834 9 18 if $i == $j
4870 0 2 unless $x->is_symmetric
4877 7 9 if ($i == $j) { }
4878 0 7 if $z < 0
4881 0 9 if $y->[$j][$j] == 0
4913 4 30 if $ncolx == 0
4935 0 37 if @_ < 3
4936 0 37 if @_ > 3
4943 0 37 unless 0 <= $i and $i < $m
4947 0 37 unless 0 <= $j and $j < $n
4976 0 36 if @_ < 3
4977 0 36 if @_ > 3
4980 0 36 unless $x->is_square
4997 0 4 if @_ < 1
4998 0 4 if @_ > 1
5002 0 4 unless $m == $n
5026 0 9 if @_ < 3
5027 0 9 if @_ > 3
5031 0 9 unless $m == $n
5049 0 2 if @_ < 1
5050 0 2 if @_ > 1
5071 0 59 if @_ < 1
5072 0 59 if @_ > 1
5077 0 59 unless $nrowx == $ncolx
5092 3 137 if ($det *= $x->[$i][$i]) == 0
5097 35 24 ($iswap + $jswap) % 2 ? :
5134 0 3 unless $imax == $jmax
5139 1 2 if $imax == 2
5146 0 2 if $imax == 1
5151 1 1 if $imax == 0
5166 2 3 $i % 2 ? :
5197 0 4 if @_ < 1
5198 0 4 if @_ > 1
5215 0 2 if @_ < 1
5216 0 2 if @_ > 1
5222 15 9 $ix <= $_ ? :
5238 0 2 if @_ < 1
5239 0 2 if @_ > 1
5245 15 9 $ix >= $_ ? :
5265 0 3 if @_ < 1
5266 0 3 if @_ > 1
5287 0 2 if @_ < 1
5288 0 2 if @_ > 1
5321 0 12 if @_ < 1
5322 0 12 if @_ > 2
5340 0 12 if @_ < 1
5341 0 12 if @_ > 2
5359 0 12 if @_ < 1
5360 0 12 if @_ > 2
5390 0 12 if @_ < 1
5391 0 12 if @_ > 2
5409 0 12 if @_ < 1
5410 0 12 if @_ > 2
5428 0 12 if @_ < 1
5429 0 12 if @_ > 2
5447 0 12 if @_ < 1
5448 0 12 if @_ > 2
5466 0 12 if @_ < 1
5467 0 12 if @_ > 2
5485 0 12 if @_ < 1
5486 0 12 if @_ > 2
5504 0 12 if @_ < 1
5505 0 12 if @_ > 2
5523 0 12 if @_ < 1
5524 0 12 if @_ > 2
5546 0 34 if @_ < 1
5547 0 34 if @_ > 3
5552 28 6 if (@_)
5554 0 28 unless defined $p
5556 0 28 if (ref $p)
5557 0 0 unless defined &blessed($p) and $p->isa($class)
5559 0 0 unless $p->is_scalar
5595 144 82 if (@_) { }
5597 0 144 unless defined $dim
5598 0 144 if (ref $dim)
5599 0 0 unless defined &blessed($dim) and $dim->isa($class)
5601 0 0 unless $dim->is_scalar
5603 0 0 unless $dim > 0 and $dim == CORE::int $dim
5606 0 144 unless $dim == 1 or $dim == 2
5608 42 40 $nrowx > 1 ? :
5618 114 112 if ($dim == 1) { }
112 0 elsif ($dim == 2) { }
5622 98 191 if ($j == 0) { }
5625 0 191 unless $nrowy == @col
5630 17 97 if $nrowy == 0
5639 76 93 if ($i == 0) { }
5642 0 93 unless $ncoly == @row
5647 37 75 if $ncoly == 0
5674 0 7 if @_ < 2
5675 0 7 if @_ > 2
5680 1 6 unless defined &blessed($y) and $y->isa($class)
5688 1 6 unless $nrowx == $nrowy and $ncolx == $ncoly
5694 2 18 if $x->[$i][$j] != $y->[$i][$j]
5711 0 7 if @_ < 2
5712 0 7 if @_ > 2
5717 1 6 unless defined &blessed($y) and $y->isa($class)
5725 1 6 unless $nrowx == $nrowy and $ncolx == $ncoly
5731 2 18 if $x->[$i][$j] != $y->[$i][$j]
5755 0 45 if CORE::abs $A->[$i][$j] - $B->[$i][$j] >= $eps
5782 0 1 if @_ < 2
5783 0 1 if @_ > 2
5788 0 1 unless defined &blessed($y) and $y->isa($class)
5791 3 6 $_[0] == $_[1] ? :
5806 0 1 if @_ < 2
5807 0 1 if @_ > 2
5812 0 1 unless defined &blessed($y) and $y->isa($class)
5815 6 3 $_[0] != $_[1] ? :
5830 0 1 if @_ < 2
5831 0 1 if @_ > 2
5836 0 1 unless defined &blessed($y) and $y->isa($class)
5839 3 6 $_[0] < $_[1] ? :
5854 0 1 if @_ < 2
5855 0 1 if @_ > 2
5860 0 1 unless defined &blessed($y) and $y->isa($class)
5863 6 3 $_[0] <= $_[1] ? :
5878 0 1 if @_ < 2
5879 0 1 if @_ > 2
5884 0 1 unless defined &blessed($y) and $y->isa($class)
5887 3 6 $_[0] > $_[1] ? :
5902 0 1 if @_ < 2
5903 0 1 if @_ > 2
5908 0 1 unless defined &blessed($y) and $y->isa($class)
5911 6 3 $_[0] >= $_[1] ? :
5928 0 1 if @_ < 2
5929 0 1 if @_ > 2
5934 0 1 unless defined &blessed($y) and $y->isa($class)
5968 1 2 unless defined &blessed($y) and $y->isa($class)
5971 0 3 unless $x->is_vector
5972 1 2 unless $x->is_row
5974 0 3 unless $x->is_vector
5975 3 0 unless $x->is_col
5977 0 3 unless $x->nelm == $y->nelm
6005 0 1 unless defined &blessed($y) and $y->isa($class)
6008 0 1 unless $x->is_vector
6009 1 0 unless $x->is_col
6011 0 1 unless $x->is_vector
6012 1 0 unless $x->is_row
6030 0 8 unless $x->is_vector
6050 0 2 unless $length
6072 0 3 unless $dimensions == @$vectors + 1
6079 4 6 $column % 2 ? :
6083 2 1 $dimensions % 2 ? :
6159 0 3 unless ref $sub eq 'CODE'
6293 0 182 if @_ < 2
6300 0 182 unless ref $sub eq 'CODE'
6307 125 57 if (@_ == 0)
6309 33 92 if $nrowx * $ncolx == 0
6337 1 116 unless defined &blessed($args[$k]) and $args[$k]->isa($class)
6349 61 56 if $nrowk > $nrowy
6350 67 50 if $ncolk > $ncoly
6356 7 50 if $n_empty == @args
6361 0 50 unless $n_empty == 0
6434 0 1 if @_ < 1
6435 0 1 if @_ > 1
6452 0 1 if $debug
6462 4 2 if ($x->[$u][$i] != 0)
6467 1 4 unless $saw_non_zero
6471 0 4 if ($x->[$i][$i] == 0)
6487 0 4 if $debug
6490 0 1 if wantarray
6512 0 1 if @_ < 1
6513 0 1 if @_ > 1
6516 0 1 if @_ > 0
6532 0 1 if $debug
6542 4 2 if ($x->[$u][$i] != 0)
6547 1 4 unless $saw_non_zero
6555 4 0 if ($x->[$u][$i] != 0)
6561 0 4 if $debug
6565 0 4 if ($p != $i)
6584 0 4 if $debug
6587 0 1 if wantarray
6608 0 1 if @_ < 1
6609 0 1 if @_ > 1
6612 0 1 if @_ > 0
6628 0 1 if $debug
6638 4 2 if ($x->[$u][$i] != 0)
6643 1 4 unless $saw_non_zero
6653 5 9 if ($abs_val > $max_abs_val)
6659 0 4 if $debug
6663 1 3 if ($p != $i)
6682 0 4 if $debug
6685 0 1 if wantarray
6704 0 1 if @_ < 1
6705 0 1 if @_ > 1
6708 0 1 if @_ > 0
6724 0 1 if $debug
6734 4 2 if ($x->[$u][$i] != 0)
6739 1 4 unless $saw_non_zero
6755 21 33 if $abs_val > $max_abs_val
6758 0 14 if $max_abs_val == 0
6766 6 8 if ($abs_ratio > $max_abs_ratio)
6773 0 4 if $debug
6777 2 2 if ($p != $i)
6796 0 4 if $debug
6799 0 1 if wantarray
6820 0 70 if @_ < 1
6821 0 70 if @_ > 1
6824 0 70 if @_ > 0
6840 0 70 if $debug
6858 345 637 if ($abs_val > $max_abs_val)
6869 3 181 unless defined $p
6871 0 181 if $debug
6875 76 105 if ($p != $i)
6876 0 76 if $debug
6877 0 76 if $debug
6879 0 76 if $debug
6886 74 107 if ($q != $i)
6887 0 74 if $debug
6888 0 74 if $debug
6892 0 74 if $debug
6910 0 181 if $debug
6913 69 1 if wantarray
6936 0 10 if @_ < 1
6937 0 10 if @_ > 1
6940 0 10 if @_ > 0
6950 0 10 if $debug
6957 0 64 unless $x->[$k][$i] == 0
6963 10 29 if $i == 0
6969 0 29 if ($x->[$i][$i] == 0)
6973 0 0 if ($x->[$k][$i] != 0)
6978 0 0 if ($non_zero)
7002 0 29 if $debug
7008 0 39 if $x->[$i][$i] == 1
7009 0 39 if $x->[$i][$i] == 0
7016 0 10 if $debug
7039 7 0 if scalar @_
7069 424 505 if (CORE::abs $sum >= CORE::abs $_) { }
7094 0 27 unless @_
7116 0 22 if $max == 0
7146 14 32 if $p == 1
7151 14 18 if $p == $inf
7157 32 0 if $_ > $max
7177 27 33 if $_ < $min
7190 43 51 if $_ > $max
7202 15 12 if (@x % 2) { }
7216 26 2 if $_ != 0
7227 9 67 if $_ == 0
7245 43 44 if (CORE::abs $sum >= CORE::abs $_) { }
7291 0 0 $min[-1] < $_ ? :
7304 0 0 $max[-1] > $_ ? :
7318 26 2 if ($_ != 0)
7336 9 67 if ($_ == 0)