File Coverage

lib/Catan/Asset/Settlement.pm

Criterion	Covered	Total	%
statement	41	42	97.6
branch	1	2	50.0
condition	1	3	33.3
subroutine	15	16	93.7
pod	0	4	0.0
total	58	67	86.5

package Catan::Asset::Settlement;
$Catan::Asset::Settlement::VERSION = '0.03';
use strict;
use warnings;
use Catan::Resource::Brick;
use Catan::Resource::Grain;
use Catan::Resource::Lumber;
use Catan::Resource::Wool;

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

  die "$class new requires a location argument"
    unless $location && $location->isa('Catan::Map::Intersection');

  return bless {
    location => $location,
    code     => 'S',
  }, $class;
}

sub code     { $_[0]->{code} }
sub location { $_[0]->{location} }

sub cost
{
  return [
    Catan::Resource::Brick->new(-1),
    Catan::Resource::Grain->new(-1),
    Catan::Resource::Lumber->new(-1),
    Catan::Resource::Wool->new(-1),
  ];
}
1;

__END__