File Coverage

lib/Settlers/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 Settlers::Asset::Settlement;
$Settlers::Asset::Settlement::VERSION = '0.07';
use strict;
use warnings;
use Settlers::Resource::Brick;
use Settlers::Resource::Grain;
use Settlers::Resource::Lumber;
use Settlers::Resource::Wool;

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

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

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

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

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

__END__