File Coverage

lib/Catan/Asset/Settlement.pm

Criterion	Covered	Total	%
statement	36	42	85.7
branch	0	2	0.0
condition	0	3	0.0
subroutine	12	16	75.0
pod	0	4	0.0
total	48	67	71.6

package Catan::Asset::Settlement;
$Catan::Asset::Settlement::VERSION = '0.02';
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__