File Coverage

blib/lib/Game/Cribbage/Rounds.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	30	93.3

package Game::Cribbage::Rounds;

use strict;
use warnings;

use Object::Proto::Sugar -types;
use Game::Cribbage::Round;

has number => (
	is => 'ro',
	isa => Int
);

has history => (
	is => 'rw',
	isa => ArrayRef,
	default => []
);

has current_round => (
	is => 'rw',
	isa => Object,
);

sub next_round {
	my ($self, $game, %args) = @_;
	if (scalar @{$self->history} >= $self->number) {
		die 'DISPLAY THE RESULT FOR THE GAME';
	}
	my $round = Game::Cribbage::Round->new(
		number => scalar @{$self->history} + 1,
		%args
	)->init($game);
	push @{$self->history}, $round;
	$self->current_round($round);
	return $self;
}

1;

__END__