File Coverage

blib/lib/Games/Board.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	3	6	50.0
condition	1	3	33.3
subroutine	11	11	100.0
pod	6	6	100.0
total	60	66	90.9

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

use Carp;
use Games::Board::Space;
use Games::Board::Piece;


sub new {
  my $class = shift;

  my $board = {
    spaces => { }
  };

  bless $board => $class;
}


sub space {
  my $board = shift;
  my $space = shift;

  return $board->{spaces}{$space};
}


sub add_space {
  my ($board, %args) = @_;
  my $space;

  $space = $board->spaceclass->new(board => $board, %args);

  return unless eval { $space->isa('Games::Board::Space') };

  if ($board->space($space->id)) {
    carp "space '" . $space->id . "' already exists on board";
  } else {
    $board->{spaces}{$space->id} = $space;
    return $space;
  }
}


sub piececlass { 'Games::Board::Piece' }


sub spaceclass { 'Games::Board::Space' }


sub add_piece {
  my $board = shift;
  my %args = @_;
  my $piece;

  $piece = $board->piececlass->new(board => $board, @_);
  $piece ||= shift;

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

  return $piece;
}

"Family fun night!";

__END__