File Coverage

lib/Settlers/Event/YearOfPlenty.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	2	4	50.0
condition	2	6	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	38	46	82.6

package Settlers::Event::YearOfPlenty;
$Settlers::Event::YearOfPlenty::VERSION = '0.07';
use strict;
use warnings;
use List::Util 'sum';

sub new { bless {}, shift }

sub validate
{
  my ($self, $trade) = @_;
  die 'calculate requires a trade argument'
    unless $trade && $trade->isa('Settlers::Game::Trade');;

  die 'YearOfPlenty only permits up to 2 resources to be taken for 1 player'
    unless 2 == @{$trade->players} && -2 == sum map {$_->amount} @{$trade->resources('bank')};
  return 1;
}
1;

__END__