File Coverage

blib/lib/Acme/Mitey/Cards/Card.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package Acme::Mitey::Cards::Card;
2              
3             our $VERSION = '0.016';
4             our $AUTHORITY = 'cpan:TOBYINK';
5              
6 9     9   136917 use Acme::Mitey::Cards::Mite qw( -all );
  9         21  
  9         72  
7 9     9   4386 use Acme::Mitey::Cards::Types qw( :types );
  9         31  
  9         5483  
8              
9             has deck => (
10             is => ro,
11             isa => Deck,
12             weak_ref => true,
13             );
14              
15             has reverse => (
16             is => lazy,
17             isa => Str,
18 1     1   12 builder => sub { shift->deck->reverse },
19             );
20              
21             signature_for to_string => (
22             pos => [],
23             );
24              
25             sub to_string {
26             my $self = shift;
27              
28             carp "to_string needs to be implemented";
29             return 'XX';
30             }
31              
32             1;