File Coverage

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

Criterion	Covered	Total	%
statement	18	36	50.0
branch	1	6	16.6
condition	2	4	50.0
subroutine	5	10	50.0
pod	4	4	100.0
total	30	60	50.0

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


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


sub get_text
{
    my $self = shift;

    my $text = $self->_format;

    $text =~ s/%\((\w+)\)\{(\w+)\}/
        $self->_expand_format($1,$2)
        /ge;

    return $text;
}

sub _depth {
    my $self = shift;

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

    return $self->{_depth};
}


sub get_depth
{
    my ($self) = @_;

    return $self->_depth();
}

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

    $self->{_text} = $args->{text};
    $self->_depth($args->{depth} || 0);
    $self->{_vars} = ($args->{vars} || {});

    return;
}


sub bump
{
    my ($self) = @_;

    return ref($self)->new(
        {
            text => $self->get_text(),
            depth => ($self->get_depth+1),
            vars => { %{$self->{_vars}}, },
        }
    );
}


sub get_var
{
    my ($self, $name) = @_;

    return $self->{_vars}->{$name};
}

# TODO : duplicate code with ::Board
my @letters = (qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y));

sub _expand_format
{
    my ($self, $name, $type) = @_;

    my $value = $self->get_var($name);

    if ($type eq "letter")
    {
        return $letters[$value];
    }
    elsif ($type eq "coords")
    {
        return sprintf("(%d,%d)", $value->x()+1, $value->y()+1);
    }
    else
    {
        die "Unknown format type '$type'!";
    }
}


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

__END__