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.8.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__