File Coverage

blib/lib/App/HL7/Compare/Parser.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 26 27 96.3


line stmt bran cond sub pod time code
1             package App::HL7::Compare::Parser;
2             $App::HL7::Compare::Parser::VERSION = '0.002';
3 4     4   71020 use v5.10;
  4         23  
4 4     4   21 use strict;
  4         8  
  4         115  
5 4     4   20 use warnings;
  4         17  
  4         103  
6              
7 4     4   663 use Moo;
  4         11873  
  4         22  
8 4     4   3029 use Mooish::AttributeBuilder -standard;
  4         1920  
  4         36  
9 4     4   2331 use App::HL7::Compare::Parser::Message;
  4         13  
  4         408  
10              
11             sub parse
12             {
13 10     10 0 5216 my ($self, $input, %opts) = @_;
14              
15 10         186 return App::HL7::Compare::Parser::Message->new(%opts, input => $input);
16             }
17              
18             1;
19