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.001';
3 3     3   1680 use v5.10;
  3         13  
4 3     3   21 use strict;
  3         9  
  3         67  
5 3     3   32 use warnings;
  3         7  
  3         112  
6              
7 3     3   17 use Mooish::AttributeBuilder -standard;
  3         7  
  3         20  
8 3     3   381 use Types::Standard qw(InstanceOf);
  3         6  
  3         22  
9 3     3   7259 use Carp qw(croak);
  3         11  
  3         187  
10 3     3   18 use Moo::Role;
  3         8  
  3         19  
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 8     8   5914 my ($self) = @_;
20              
21 8         16 my $builder = '_build_msg_config';
22 8 50       74 return $self->$builder if $self->can($builder);
23 0           croak 'Parameter msg_config is required';
24             }
25              
26             1;
27