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   103353 use Catmandu::Sane;
  6         189369  
  6         40  
3 6     6   1146 use Catmandu::Util qw(:is :check);
  6         12  
  6         2500  
4 6     6   48 use Moo;
  6         13  
  6         48  
5 6     6   3912 use Catmandu::AlephX::Metadata;
  6         17  
  6         1162  
6              
7             our $VERSION = "1.072";
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;