File Coverage

blib/lib/KiokuDB/Test/Digested.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package KiokuDB::Test::Digested;
2 3     3   15833 use Moose;
  3         319173  
  3         17  
3              
4 3     3   13905 use namespace::clean -except => 'meta';
  3         5  
  3         24  
5              
6             with qw(
7             KiokuDB::Role::ID::Digest
8             KiokuDB::Role::Immutable::Transitive
9             MooseX::Clone
10             );
11              
12             has [qw(foo bar)] => ( is => "ro" );
13              
14             sub digest_parts {
15 273     273 0 341 my $self = shift;
16              
17 273         7044 return $self->foo, $self->bar;
18             }
19              
20             __PACKAGE__->meta->make_immutable;
21              
22             __PACKAGE__
23              
24             __END__