File Coverage

blib/lib/Data/MARC/Validator/Report/Error.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 25 26 96.1


line stmt bran cond sub pod time code
1             package Data::MARC::Validator::Report::Error;
2              
3 9     9   167574 use strict;
  9         22  
  9         5336  
4 9     9   47 use warnings;
  9         17  
  9         512  
5              
6 9     9   4337 use Mo qw(build default is);
  9         6002  
  9         56  
7 9     9   27721 use Mo::utils qw(check_required);
  9         158086  
  9         248  
8 9     9   6318 use Mo::utils::Hash qw(check_hash);
  9         6726  
  9         183  
9              
10             our $VERSION = 0.02;
11              
12             has error => (
13             is => 'ro',
14             );
15              
16             has params => (
17             default => {},
18             is => 'ro',
19             );
20              
21             sub BUILD {
22 15     15 0 1382079 my $self = shift;
23              
24             # Check 'error'.
25 15         78 check_required($self, 'error');
26              
27             # Check 'params'.
28 14         200 check_hash($self, 'params');
29              
30 13         120 return;
31             }
32              
33             1;
34              
35             __END__