File Coverage

blib/lib/Games/Board/Space.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	8	14	57.1
condition	2	3	66.6
subroutine	10	10	100.0
pod	7	7	100.0
total	62	70	88.5

use strict;
use warnings;
package Games::Board::Space;
{
  $Games::Board::Space::VERSION = '1.013';
}
# ABSTRACT: a parent class for spaces on game board

use Carp;



sub new {
  my $class = shift;
  my %args  = @_;

  return unless $args{id};
  croak "no board supplied in space creation"
    unless eval { $args{board}->isa('Games::Board') };

  my $space = {
    id    => $args{id},
    board => $args{board},
  };

  $space->{dir} = $args{dir}
    if $args{dir} and (ref $args{dir} eq 'HASH');

  bless $space => $class;
}


sub id {
  my $space = shift;

  return $space->{id};
}


sub board {
  my $space = shift;
  $space->{board};
}


sub dir_id {
  my ($space, $dir) = @_;

  return $space->{dir}{$dir} if (ref $space->{dir} eq 'HASH');
}


sub dir {
  my ($space, $dir) = @_;
  $space->board->space($space->dir_id($dir));
}


sub contains {
  my ($self, $piece) = @_;
  return 1 if grep { $_ eq $piece->id } @{$self->{contents}};
}


sub receive {
  my ($self, $piece) = @_;

  return unless eval { $piece->isa('Games::Board::Piece') };
  return if $self->contains($piece);

  $piece->{current_space} = $self->id;
  push @{$self->{contents}}, $piece->id;
}

1;

__END__