File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	9	9	100.0
pod	2	2	100.0
total	46	46	100.0

package Games::ABC_Path::Solver::Coord;
$Games::ABC_Path::Solver::Coord::VERSION = '0.8.1';
use warnings;
use strict;

use parent 'Games::ABC_Path::Solver::Base';


use integer;


sub x
{
    my $self = shift;

    if (@_)
    {
        $self->{x} = shift;
    }

    return $self->{x};
}


sub y
{
    my $self = shift;

    if (@_)
    {
        $self->{'y'} = shift;
    }

    return $self->{'y'};
}

sub _to_s
{
    my $self = shift;

    return sprintf( "%d,%d", $self->x, $self->y );
}

sub _init
{
    my ( $self, $args ) = @_;

    $self->x( $args->{x} );
    $self->y( $args->{'y'} );

    return;
}

sub _equal
{
    my ( $self, $other_xy ) = @_;

    return ( ( $self->x == $other_xy->x ) && ( $self->y == $other_xy->y ) );
}


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

__END__