File Coverage

lib/Settlers/Map/Tile.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	1	2	50.0
condition	4	5	80.0
subroutine	14	15	93.3
pod	1	7	14.2
total	55	65	84.6

package Settlers::Map::Tile;
$Settlers::Map::Tile::VERSION = '0.07';
use strict;
use warnings;
use parent 'Math::HexGrid::Hex';

use overload
  '""' => 'uuid',
  fallback => 1;

sub new
{
  my ($class, $q, $r, $number) = @_;

  my $self = $class->SUPER::new($q, $r);

  # yielding tiles need a number
  die 'new() requires a number' if $class->yields && ! $number;

  # non resource-producing yield nothing
  $self->{number} = $number || 0;
  return $self;
}

sub uuid   { $_[0]->{id} }
sub number { $_[0]->{number} }
sub yields { undef }
sub name   { $_[0]->{name} }
sub code   { $_[0]->{code} }

sub tile_neighbor_uuid
{
  my ($self, $direction) = @_;
  return $self->SUPER::hex_neighbor($direction)->id;
}
1;

__END__