File Coverage

lib/Settlers/Event/Monopoly.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	6	66.6
condition	3	9	33.3
subroutine	8	8	100.0
pod	0	2	0.0
total	45	55	81.8

package Settlers::Event::Monopoly;
$Settlers::Event::Monopoly::VERSION = '0.07';
use strict;
use warnings;
use Settlers::Game::Trade;

sub new { bless {}, shift }

sub calculate
{
  my ($self, $player_number, $code, $players, $bank) = @_;
  die 'calculate requires a player number, resource code and players arrayref'
    unless $player_number && $code && $players && ref $players eq 'ARRAY';

  # loop through all other players and trade away their resource to the player
  my %resources_summary = ();
  for my $losing_player (@$players)
  {
    next if $losing_player->number == $player_number;
    if (my $amount = $losing_player->resources->{$code})
    {
      my $trade = Settlers::Game::Trade->new($bank, $players, {
        $player_number => { $code => $amount },
        $losing_player->number => { $code => -$amount },
      });
      my $resources = $trade->execute;
      for my $k (keys %$resources)
      {
        $resources_summary{$k}{$code} += $resources->{$k}{$code};
      }
    }
  }
  return \%resources_summary;
}
1;

__END__