File Coverage

blib/lib/Game/Cribbage/Player.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	15	15	100.0

package Game::Cribbage::Player;

use strict;
use warnings;

use Object::Proto::Sugar -types;

has [qw/id number/] => (
	is => 'ro',
	isa => Int
);

has name => (
	is => 'ro',
	isa => Str
);


sub player {
	return 'player' . $_[0]->number;
}

1;

__END__