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   81562 use Catmandu::Sane;
  6         154356  
  6         33  
3 6     6   940 use Catmandu::Util qw(:is :check);
  6         12  
  6         2283  
4 6     6   47 use Moo;
  6         10  
  6         41  
5 6     6   3292 use Catmandu::AlephX::Metadata;
  6         11  
  6         975  
6              
7             our $VERSION = "1.071";
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;