File Coverage

blib/lib/Math/Matrix/Banded.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	21	22	95.4

package Math::Matrix::Banded;
use 5.014;

=pod

=head1 NAME

Math::Matrix::Banded - non-zero entries confined to a diagonal band

=head1 VERSION

Version 0.004

=cut

our $VERSION = '0.004';

use Math::Matrix::Banded::Square;
use Math::Matrix::Banded::Rectangular;


sub new {
    my ($class, %args) = @_;

    if (!exists($args{M}) and exists($args{N})) {
        return Math::Matrix::Banded::Square->new(%args);
    }
    else {
        return Math::Matrix::Banded::Rectangular->new(%args);
    }
}


1;

__END__