File Coverage

lib/Settlers/Event/RoadBuilding.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	28	34	82.3

package Settlers::Event::RoadBuilding;
$Settlers::Event::RoadBuilding::VERSION = '0.07';
use strict;
use warnings;

sub new
{
  my ($class, $player) = @_;
  die 'RoadBuilding requires a player object argument'
    unless $player && $player->isa('Settlers::Game::Player');

  bless {
    starting_roads => scalar @{$player->roads},
    player => $player,
  }, $class;
}

# has a player built 2 roads since activating road building
sub can_build_road
{
  my $self = shift;
  return $self->{starting_roads} - scalar @{$self->{player}->roads} < 2 ? 1 : 0;
}
1;

__END__