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.002';
3 4     4   2205 use v5.10;
  4         15  
4 4     4   23 use strict;
  4         8  
  4         95  
5 4     4   22 use warnings;
  4         8  
  4         149  
6              
7 4     4   25 use Mooish::AttributeBuilder -standard;
  4         8  
  4         39  
8 4     4   471 use Types::Standard qw(InstanceOf);
  4         10  
  4         25  
9 4     4   9750 use Carp qw(croak);
  4         18  
  4         231  
10 4     4   26 use Moo::Role;
  4         8  
  4         23  
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 10     10   9375 my ($self) = @_;
20              
21 10         24 my $builder = '_build_msg_config';
22 10 50       71 return $self->$builder if $self->can($builder);
23 0           croak 'Parameter msg_config is required';
24             }
25              
26             1;
27