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