File Coverage

blib/lib/Game/Cribbage/Play/Card.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package Game::Cribbage::Play::Card;
2              
3 10     10   64 use strict;
  10         15  
  10         338  
4 10     10   32 use warnings;
  10         10  
  10         505  
5              
6 10     10   40 use Object::Proto::Sugar -types;
  10         12  
  10         55  
7              
8             has [qw/player card/] => (
9             is => 'ro',
10             isa => Object
11             );
12              
13             sub value {
14 150     150 0 262 $_[0]->card->value;
15             }
16              
17             sub symbol {
18 34     34 0 126 $_[0]->card->symbol;
19             }
20              
21             1;