File Coverage

lib/Catan/Asset/Road.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	8	12	66.6
pod	0	4	0.0
total	32	51	62.7

package Catan::Asset::Road;
$Catan::Asset::Road::VERSION = '0.02';
use strict;
use warnings;
use Catan::Resource::Brick;
use Catan::Resource::Lumber;

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

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

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

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

__END__