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 2 2 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Game::Cribbage::Play::Card;
2              
3 10     10   55 use strict;
  10         15  
  10         384  
4 10     10   48 use warnings;
  10         43  
  10         509  
5              
6 10     10   58 use Object::Proto::Sugar -types;
  10         13  
  10         59  
7              
8             has [qw/player card/] => (
9             is => 'ro',
10             isa => Object
11             );
12              
13             sub value {
14 150     150 1 266 $_[0]->card->value;
15             }
16              
17             sub symbol {
18 34     34 1 144 $_[0]->card->symbol;
19             }
20              
21             1;
22              
23             __END__