Branch Coverage

blib/lib/Math/Matrix.pm
Criterion Covered Total %
branch 915 1468 62.3


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 928 if (ref $that and @_ == 0) { }
186 16 912 if (@_ == 1 and not ref $_[0]) { }
639 273 elsif (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} > 0 and ref $_[0][0] eq 'ARRAY') { }
211 927 1 if (@$data)
220 0 1818 unless ref $row eq 'ARRAY'
228 927 891 if ($i == 0) { }
231 0 891 unless @$row == $ncol
238 691 236 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 84 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 123 if @_ > 1
785 0 123 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 52 if @_ < 1
999 0 52 if @_ > 1
1015 0 99 if @_ < 1
1016 0 99 if @_ > 1
1018 31 68 $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 76 if @_ < 1
1084 0 76 if @_ > 1
1087 73 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 1902 169 $m ? :
2363 0 177 if @_ < 1
2364 0 177 if @_ > 1
2366 150 27 @$x ? :
2380 0 635 if @_ < 1
2381 0 635 if @_ > 1
2397 0 576 if @_ < 1
2398 0 576 if @_ > 1
2400 529 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 172 if $nrowy == 0
2574 85 87 if (defined $nrow) { }
2575 0 85 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 20 if @_ < 1
2931 18 2 if (@_)
2933 0 18 unless defined $offs
2934 0 18 if (ref $offs)
2935 0 0 unless defined &blessed($offs) and $offs->isa($class)
2937 0 0 unless $offs->is_scalar
2941 12 6 if (@_)
2943 0 12 unless defined $len
2944 0 12 if (ref $len)
2945 0 0 unless defined &blessed($len) and $len->isa($class)
2947 0 0 unless $len->is_scalar
2951 2 10 if (@_)
2960 0 20 if ($offs > $len)
2969 2 18 if ($offs == $len) { }
4 14 elsif ($offs == 0 and $len == $ncolx) { }
2970 0 2 unless ($repl->is_empty)
2990 12 2 if ($repl->is_empty) { }
3001 6 14 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 22 if @_ < 2
4026 0 22 if @_ > 2
4031 3 19 unless defined &blessed($y) and $y->isa($class)
4033 8 14 $x->is_scalar || $y->is_scalar ? :
4049 0 29 if @_ < 2
4050 0 29 if @_ > 2
4055 0 29 unless defined &blessed($y) and $y->isa($class)
4063 0 29 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 11 if @_ < 2
4280 0 11 if @_ > 2
4284 0 11 unless $x->is_square
4288 0 11 unless defined $n
4289 9 2 if (ref $n)
4290 0 9 unless defined &blessed($n) and $n->isa($class)
4291 0 9 unless $n->is_scalar
4295 0 11 unless $n == CORE::int $n
4297 3 8 if $x->is_empty
4300 2 6 if $n == 0
4301 2 4 if $n == 1
4307 7 4 if $rem
4309 4 7 if $n == 0
4330 0 4 if @_ < 2
4331 0 4 if @_ > 2
4368 0 1 if $m != $n
4389 0 2 if @_ < 1
4409 0 2 if @_ < 1
4410 0 2 if @_ > 1
4465 0 10 if @_ < 2
4471 0 10 unless defined &blessed($A) and $A->isa($class)
4475 1 9 if ($m > $n) { }
1 8 elsif ($m < $n) { }
4495 0 8 if (@_)
4500 0 0 $Config::Config{'uselongdouble'} || $Config::Config{'usequadmath'} ? :
4506 0 0 unless defined $param
4508 0 0 unless @_
4511 0 0 if ($param eq 'MaxIter')
4512 0 0 unless defined $value
4514 0 0 unless $value > 0 and $value == CORE::int $value
4520 0 0 if ($param eq 'RelTol')
4521 0 0 unless defined $value
4523 0 0 unless $value >= 0
4529 0 0 if ($param eq 'AbsTol')
4530 0 0 unless defined $value
4532 0 0 unless $value >= 0
4538 0 0 if ($param eq 'Debug')
4546 0 0 if ($debug)
4572 0 0 $y_norm == 0 ? :
4574 0 0 if ($debug)
4585 0 0 if ($iter == 1 or $abs_err < $abs_err_best or $rel_err < $rel_err_best)
4595 0 0 if ($abs_err_best <= $abs_tol or $rel_err_best <= $rel_tol) { }
4602 0 0 if ($iter == $max_iter)
4624 0 0 if wantarray
4630 0 8 unless $y->nrow == $n
4640 0 8 if $@
4645 0 8 if $@
4696 0 1 if @_ < 2
4702 0 1 unless defined &blessed($A) and $A->isa($class)
4736 0 6 if @_ < 2
4737 0 6 if @_ > 2
4812 0 3 if $mc <= $mr
4817 0 0 if $try++ > $mr
4829 9 18 if $i == $j
4865 0 2 unless $x->is_symmetric
4872 7 9 if ($i == $j) { }
4873 0 7 if $z < 0
4876 0 9 if $y->[$j][$j] == 0
4908 4 30 if $ncolx == 0
4930 0 37 if @_ < 3
4931 0 37 if @_ > 3
4938 0 37 unless 0 <= $i and $i < $m
4942 0 37 unless 0 <= $j and $j < $n
4971 0 36 if @_ < 3
4972 0 36 if @_ > 3
4975 0 36 unless $x->is_square
4992 0 4 if @_ < 1
4993 0 4 if @_ > 1
4997 0 4 unless $m == $n
5021 0 9 if @_ < 3
5022 0 9 if @_ > 3
5026 0 9 unless $m == $n
5044 0 2 if @_ < 1
5045 0 2 if @_ > 1
5066 0 59 if @_ < 1
5067 0 59 if @_ > 1
5072 0 59 unless $nrowx == $ncolx
5087 3 137 if ($det *= $x->[$i][$i]) == 0
5092 34 25 ($iswap + $jswap) % 2 ? :
5129 0 3 unless $imax == $jmax
5134 1 2 if $imax == 2
5141 0 2 if $imax == 1
5146 1 1 if $imax == 0
5161 2 3 $i % 2 ? :
5192 0 4 if @_ < 1
5193 0 4 if @_ > 1
5210 0 2 if @_ < 1
5211 0 2 if @_ > 1
5217 15 9 $ix <= $_ ? :
5233 0 2 if @_ < 1
5234 0 2 if @_ > 1
5240 15 9 $ix >= $_ ? :
5260 0 3 if @_ < 1
5261 0 3 if @_ > 1
5282 0 2 if @_ < 1
5283 0 2 if @_ > 1
5316 0 12 if @_ < 1
5317 0 12 if @_ > 2
5335 0 12 if @_ < 1
5336 0 12 if @_ > 2
5354 0 12 if @_ < 1
5355 0 12 if @_ > 2
5385 0 12 if @_ < 1
5386 0 12 if @_ > 2
5404 0 12 if @_ < 1
5405 0 12 if @_ > 2
5423 0 12 if @_ < 1
5424 0 12 if @_ > 2
5442 0 12 if @_ < 1
5443 0 12 if @_ > 2
5461 0 12 if @_ < 1
5462 0 12 if @_ > 2
5480 0 12 if @_ < 1
5481 0 12 if @_ > 2
5499 0 12 if @_ < 1
5500 0 12 if @_ > 2
5518 0 12 if @_ < 1
5519 0 12 if @_ > 2
5541 0 34 if @_ < 1
5542 0 34 if @_ > 3
5547 28 6 if (@_)
5549 0 28 unless defined $p
5551 0 28 if (ref $p)
5552 0 0 unless defined &blessed($p) and $p->isa($class)
5554 0 0 unless $p->is_scalar
5590 144 82 if (@_) { }
5592 0 144 unless defined $dim
5593 0 144 if (ref $dim)
5594 0 0 unless defined &blessed($dim) and $dim->isa($class)
5596 0 0 unless $dim->is_scalar
5598 0 0 unless $dim > 0 and $dim == CORE::int $dim
5601 0 144 unless $dim == 1 or $dim == 2
5603 42 40 $nrowx > 1 ? :
5613 114 112 if ($dim == 1) { }
112 0 elsif ($dim == 2) { }
5617 98 191 if ($j == 0) { }
5620 0 191 unless $nrowy == @col
5625 17 97 if $nrowy == 0
5634 76 93 if ($i == 0) { }
5637 0 93 unless $ncoly == @row
5642 37 75 if $ncoly == 0
5669 0 7 if @_ < 2
5670 0 7 if @_ > 2
5675 1 6 unless defined &blessed($y) and $y->isa($class)
5683 1 6 unless $nrowx == $nrowy and $ncolx == $ncoly
5689 2 18 if $x->[$i][$j] != $y->[$i][$j]
5706 0 7 if @_ < 2
5707 0 7 if @_ > 2
5712 1 6 unless defined &blessed($y) and $y->isa($class)
5720 1 6 unless $nrowx == $nrowy and $ncolx == $ncoly
5726 2 18 if $x->[$i][$j] != $y->[$i][$j]
5750 0 45 if CORE::abs $A->[$i][$j] - $B->[$i][$j] >= $eps
5777 0 1 if @_ < 2
5778 0 1 if @_ > 2
5783 0 1 unless defined &blessed($y) and $y->isa($class)
5786 3 6 $_[0] == $_[1] ? :
5801 0 1 if @_ < 2
5802 0 1 if @_ > 2
5807 0 1 unless defined &blessed($y) and $y->isa($class)
5810 6 3 $_[0] != $_[1] ? :
5825 0 1 if @_ < 2
5826 0 1 if @_ > 2
5831 0 1 unless defined &blessed($y) and $y->isa($class)
5834 3 6 $_[0] < $_[1] ? :
5849 0 1 if @_ < 2
5850 0 1 if @_ > 2
5855 0 1 unless defined &blessed($y) and $y->isa($class)
5858 6 3 $_[0] <= $_[1] ? :
5873 0 1 if @_ < 2
5874 0 1 if @_ > 2
5879 0 1 unless defined &blessed($y) and $y->isa($class)
5882 3 6 $_[0] > $_[1] ? :
5897 0 1 if @_ < 2
5898 0 1 if @_ > 2
5903 0 1 unless defined &blessed($y) and $y->isa($class)
5906 6 3 $_[0] >= $_[1] ? :
5923 0 1 if @_ < 2
5924 0 1 if @_ > 2
5929 0 1 unless defined &blessed($y) and $y->isa($class)
5963 1 2 unless defined &blessed($y) and $y->isa($class)
5966 0 3 unless $x->is_vector
5967 1 2 unless $x->is_row
5969 0 3 unless $x->is_vector
5970 3 0 unless $x->is_col
5972 0 3 unless $x->nelm == $y->nelm
6000 0 1 unless defined &blessed($y) and $y->isa($class)
6003 0 1 unless $x->is_vector
6004 1 0 unless $x->is_col
6006 0 1 unless $x->is_vector
6007 1 0 unless $x->is_row
6025 0 8 unless $x->is_vector
6045 0 2 unless $length
6067 0 3 unless $dimensions == @$vectors + 1
6074 4 6 $column % 2 ? :
6078 2 1 $dimensions % 2 ? :
6154 0 3 unless ref $sub eq 'CODE'
6288 0 176 if @_ < 2
6295 0 176 unless ref $sub eq 'CODE'
6302 119 57 if (@_ == 0)
6304 33 86 if $nrowx * $ncolx == 0
6332 1 116 unless defined &blessed($args[$k]) and $args[$k]->isa($class)
6344 61 56 if $nrowk > $nrowy
6345 67 50 if $ncolk > $ncoly
6351 7 50 if $n_empty == @args
6356 0 50 unless $n_empty == 0
6429 0 1 if @_ < 1
6430 0 1 if @_ > 1
6447 0 1 if $debug
6457 4 2 if ($x->[$u][$i] != 0)
6462 1 4 unless $saw_non_zero
6466 0 4 if ($x->[$i][$i] == 0)
6482 0 4 if $debug
6485 0 1 if wantarray
6507 0 1 if @_ < 1
6508 0 1 if @_ > 1
6511 0 1 if @_ > 0
6527 0 1 if $debug
6537 4 2 if ($x->[$u][$i] != 0)
6542 1 4 unless $saw_non_zero
6550 4 0 if ($x->[$u][$i] != 0)
6556 0 4 if $debug
6560 0 4 if ($p != $i)
6579 0 4 if $debug
6582 0 1 if wantarray
6603 0 1 if @_ < 1
6604 0 1 if @_ > 1
6607 0 1 if @_ > 0
6623 0 1 if $debug
6633 4 2 if ($x->[$u][$i] != 0)
6638 1 4 unless $saw_non_zero
6648 5 9 if ($abs_val > $max_abs_val)
6654 0 4 if $debug
6658 1 3 if ($p != $i)
6677 0 4 if $debug
6680 0 1 if wantarray
6699 0 1 if @_ < 1
6700 0 1 if @_ > 1
6703 0 1 if @_ > 0
6719 0 1 if $debug
6729 4 2 if ($x->[$u][$i] != 0)
6734 1 4 unless $saw_non_zero
6750 21 33 if $abs_val > $max_abs_val
6753 0 14 if $max_abs_val == 0
6761 6 8 if ($abs_ratio > $max_abs_ratio)
6768 0 4 if $debug
6772 2 2 if ($p != $i)
6791 0 4 if $debug
6794 0 1 if wantarray
6815 0 68 if @_ < 1
6816 0 68 if @_ > 1
6819 0 68 if @_ > 0
6835 0 68 if $debug
6853 336 636 if ($abs_val > $max_abs_val)
6864 3 177 unless defined $p
6866 0 177 if $debug
6870 74 103 if ($p != $i)
6871 0 74 if $debug
6872 0 74 if $debug
6874 0 74 if $debug
6881 71 106 if ($q != $i)
6882 0 71 if $debug
6883 0 71 if $debug
6887 0 71 if $debug
6905 0 177 if $debug
6908 67 1 if wantarray
6931 0 8 if @_ < 1
6932 0 8 if @_ > 1
6935 0 8 if @_ > 0
6945 0 8 if $debug
6952 0 62 unless $x->[$k][$i] == 0
6958 8 27 if $i == 0
6964 0 27 if ($x->[$i][$i] == 0)
6968 0 0 if ($x->[$k][$i] != 0)
6973 0 0 if ($non_zero)
6997 0 27 if $debug
7003 0 35 if $x->[$i][$i] == 1
7004 0 35 if $x->[$i][$i] == 0
7011 0 8 if $debug
7034 7 0 if scalar @_
7064 431 458 if (CORE::abs $sum >= CORE::abs $_) { }
7089 0 27 unless @_
7111 0 22 if $max == 0
7141 14 32 if $p == 1
7146 14 18 if $p == $inf
7152 32 0 if $_ > $max
7172 27 33 if $_ < $min
7185 47 47 if $_ > $max
7197 15 12 if (@x % 2) { }
7211 26 2 if $_ != 0
7222 9 67 if $_ == 0
7240 43 44 if (CORE::abs $sum >= CORE::abs $_) { }
7286 0 0 $min[-1] < $_ ? :
7299 0 0 $max[-1] > $_ ? :
7313 26 2 if ($_ != 0)
7331 9 67 if ($_ == 0)