File Coverage

lib/Settlers/Asset/DevelopmentCard.pm

Criterion	Covered	Total	%
statement	35	37	94.5
branch	1	2	50.0
condition	1	3	33.3
subroutine	13	15	86.6
pod	0	5	0.0
total	50	62	80.6

package Settlers::Asset::DevelopmentCard;
$Settlers::Asset::DevelopmentCard::VERSION = '0.07';
use strict;
use warnings;
use Settlers::Resource::Ore;
use Settlers::Resource::Grain;
use Settlers::Resource::Wool;

our %types = (
  KN => 'Knight',
  MO => 'Monopoly',
  RB => 'Road Building',
  VP => 'Victory Point',
  YP => 'Year of Plenty',
);

sub new
{
  my ($class, $type) = @_;
  die "$class new requires a type argument"
    unless $type && exists $types{$type};

  bless {
    type => $type,
    code => 'DC',
  }, $class;
}

sub code      { $_[0]->{code} }
sub type      { $_[0]->{type} }
sub type_name { $types{ $_[0]->{type} } }

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

__END__