File Coverage

blib/lib/Ordeal/Model/Card.pm
Criterion Covered Total %
statement 31 38 81.5
branch 2 4 50.0
condition n/a
subroutine 10 12 83.3
pod 2 2 100.0
total 45 56 80.3


line stmt bran cond sub pod time code
1             package Ordeal::Model::Card;
2              
3             # vim: ts=3 sts=3 sw=3 et ai :
4              
5 6     6   3874 use 5.020;
  6         35  
6 6     6   30 use strict; # redundant, but still useful to document
  6         17  
  6         155  
7 6     6   33 use warnings;
  6         11  
  6         312  
8             { our $VERSION = '0.004'; }
9 6     6   72 use English qw< -no_match_vars >;
  6         30  
  6         44  
10 6     6   2376 use Mo qw< default >;
  6         15  
  6         37  
11              
12 6     6   1345 use experimental qw< signatures postderef >;
  6         11  
  6         31  
13 6     6   876 no warnings qw< experimental::signatures experimental::postderef >;
  6         14  
  6         694  
14              
15             use overload
16 0     0   0 ne => sub { shift->compare_ne(@_) },
17 12     12   28 bool => sub { return 1 },
18 6     6   40 fallback => 0; # false but defined, disables Magic Autogeneration
  6         14  
  6         78  
19              
20             has content_type => (default => undef);
21             has group => (default => '');
22             has id => (default => undef);
23             has name => (default => '');
24              
25 0     0 1 0 sub compare_ne ($self, $other, $x) { return $self->id ne $other->id }
  0         0  
  0         0  
  0         0  
  0         0  
  0         0  
26              
27 1     1 1 3293 sub data ($self, $data = undef) {
  1         2  
  1         2  
  1         2  
28 1 50       4 $self->{data} = $data if @_ > 1;
29 1 50       6 $self->{data} = $self->{data}->($self) if ref $self->{data};
30 1         262 return $self->{data};
31             }
32              
33             1;
34             __END__