File Coverage

blib/lib/KiokuDB/Entry/Skip.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             package KiokuDB::Entry::Skip;
4 20     20   94 use Moose;
  20         34  
  20         153  
5              
6 20     20   100296 use namespace::clean -except => 'meta';
  20         37  
  20         182  
7              
8             has prev => (
9             isa => "KiokuDB::Entry",
10             is => "ro",
11             handles => [qw(id)],
12             );
13              
14             has root => (
15             isa => "Bool",
16             is => "rw",
17             predicate => "has_root",
18             );
19              
20             has object => (
21             isa => "Any",
22             is => "rw",
23             weak_ref => 1,
24             predicate => "has_object",
25             );
26              
27             __PACKAGE__->meta->make_immutable;
28              
29             __PACKAGE__
30              
31             __END__