File Coverage

blib/lib/Games/Board/Piece.pm

Criterion	Covered	Total	%
statement	34	35	97.1
branch	9	16	56.2
condition			n/a
subroutine	9	9	100.0
pod	6	6	100.0
total	58	66	87.8

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

use Carp;



sub new {
  my ($class, %args) = @_;

  return unless $args{id};
  return unless eval { $args{board}->isa('Games::Board') };

  my $piece = { %args };

  bless $piece => $class;
}


sub id {
  my $self = shift;
  $self->{id};
}


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


sub current_space_id {
  my $piece = shift;
  $piece->{current_space};
}


sub current_space {
  my $piece = shift;
  return unless $piece->{current_space};
  $piece->board->space($piece->{current_space});
}


sub move {
  my $piece = shift;
  my ($how, $which) = @_;
  my $space;

  if ($how eq 'dir') {
    return unless $piece->current_space;
    return unless $space = $piece->current_space->dir($which);
  } elsif ($how eq 'to') {
    return unless eval { $which->isa('Games::Board::Space') };
    $space = $which;
  } else {
    return;
  }

  $space->receive($piece);
}

1;

__END__