File Coverage

blib/lib/Game/Cribbage/Play/Score.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Game::Cribbage::Play::Score;

use strict;
use warnings;

use Rope;
use Rope::Autoload;

property scores => (
	initable => 1,
	writeable => 0,
	configurable => 0,
	enumerable => 1,
	value => {
		run => [3, 4, 5, 6, 7],
		pair => [2, 6, 12],
		fifteen => 2,
		go => 1,
		pegged => 1,
		flipped => 1
	}
);

property [qw/total_score pair run fifteen pegged go flipped/] => (
	initable => 1,
	writeable => 1,
	configurable => 0,
	enumerable => 1
);

property [qw/player card/] => (
	initable => 1,
	writeable => 0,
	configurable => 0,
	enumerable => 1
);

function score => sub {
	my ($self) = @_;
	my $score = 0;
	for (qw/fifteen go pegged flipped/) {
		if ( $self->$_ ) {
			$score += $self->scores->{$_};
		}
	}
	for (qw/pair run/) {
		if ($self->$_) {
			$score += $self->scores->{$_}->[$self->$_ - 1];
		}
	}
	$self->total_score = $score;
	return $score;
};

1;