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 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package Game::Cribbage::Player;
2              
3 9     9   77335 use strict;
  9         16  
  9         367  
4 9     9   34 use warnings;
  9         25  
  9         489  
5              
6 9     9   443 use Object::Proto::Sugar -types;
  9         11478  
  9         61  
7              
8             has [qw/id number/] => (
9             is => 'ro',
10             isa => Int
11             );
12              
13             has name => (
14             is => 'ro',
15             isa => Str
16             );
17              
18              
19             sub player {
20 750     750 0 1454 return 'player' . $_[0]->number;
21             }
22              
23             1;