File Coverage

blib/lib/App/HL7/Compare/Parser/Role/PartOfMessage.pm
Criterion Covered Total %
statement 23 24 95.8
branch 1 2 50.0
condition n/a
subroutine 8 8 100.0
pod n/a
total 32 34 94.1


line stmt bran cond sub pod time code
1             package App::HL7::Compare::Parser::Role::PartOfMessage;
2             $App::HL7::Compare::Parser::Role::PartOfMessage::VERSION = '0.004';
3 4     4   2416 use v5.10;
  4         17  
4 4     4   41 use strict;
  4         8  
  4         103  
5 4     4   19 use warnings;
  4         9  
  4         214  
6              
7 4     4   21 use Mooish::AttributeBuilder -standard;
  4         8  
  4         47  
8 4     4   487 use Types::Standard qw(InstanceOf);
  4         10  
  4         28  
9 4     4   12111 use Carp qw(croak);
  4         9  
  4         291  
10 4     4   22 use Moo::Role;
  4         7  
  4         31  
11              
12             has param 'msg_config' => (
13             isa => InstanceOf ['App::HL7::Compare::Parser::MessageConfig'],
14             builder => '_build_msg_config_or_error',
15             );
16              
17             sub _build_msg_config_or_error
18             {
19 14     14   10229 my ($self) = @_;
20              
21 14         30 my $builder = '_build_msg_config';
22 14 50       112 return $self->$builder if $self->can($builder);
23 0           croak 'Parameter msg_config is required';
24             }
25              
26             1;
27