File Coverage

blib/lib/Catmandu/AlephX/Record.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Catmandu::AlephX::Record;
2 6     6   116200 use Catmandu::Sane;
  6         216863  
  6         43  
3 6     6   1321 use Catmandu::Util qw(:is :check);
  6         11  
  6         2653  
4 6     6   53 use Moo;
  6         20  
  6         54  
5 6     6   4361 use Catmandu::AlephX::Metadata;
  6         16  
  6         1279  
6              
7             our $VERSION = "1.073";
8              
9             has metadata => (
10             is => 'ro',
11             lazy => 1,
12             isa => sub {
13             defined($_[0]) && check_instance($_[0],"Catmandu::AlephX::Metadata");
14             },
15             coerce => sub {
16             if(is_code_ref($_[0])){
17             return $_[0]->();
18             }
19             $_[0];
20             }
21             );
22              
23             1;