File Coverage

blib/lib/Games/ABC_Path/Solver/Base.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch			n/a
condition	3	3	100.0
subroutine	10	11	90.9
pod	1	1	100.0
total	38	41	92.6

package Games::ABC_Path::Solver::Base;
$Games::ABC_Path::Solver::Base::VERSION = '0.6.1';
use warnings;
use strict;

use Games::ABC_Path::Solver::Constants;


sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init(@_);

    return $self;
}

use integer;

sub _xy_to_int
{
    my ($self, $xy) = @_;


    return $xy->[$Y] * $LEN + $xy->[$X];
}

sub _to_xy
{
    my ($self, $int) = @_;

    return (($int / $LEN), ($int % $LEN));
}

sub _y_indexes
{
    return (0 .. $LEN_LIM);
}

sub _x_indexes
{
    return (0 .. $LEN_LIM);
}

sub _x_in_range
{
    my ($self, $x) = @_;

    return ($x >= 0 and $x < $LEN);
}

sub _y_in_range
{
    my ($self, $y) = @_;

    return $self->_x_in_range($y);
}


1; # End of Games::ABC_Path::Solver::Base

__END__