File Coverage

lib/Settlers/Asset/Road.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	1	2	50.0
condition	1	3	33.3
subroutine	11	12	91.6
pod	0	4	0.0
total	42	51	82.3

package Settlers::Asset::Road;
$Settlers::Asset::Road::VERSION = '0.07';
use strict;
use warnings;
use Settlers::Resource::Brick;
use Settlers::Resource::Lumber;

sub new
{
  my ($class, $path) = @_;
  die "$class new require a path argument"
    unless $path && $path->isa('Settlers::Map::Path');

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

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

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

__END__