File Coverage

blib/lib/App/HL7/Compare/Parser/Component.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	25	26	96.1

package App::HL7::Compare::Parser::Component;
$App::HL7::Compare::Parser::Component::VERSION = '0.002';
use v5.10;
use strict;
use warnings;

use Moo;

use App::HL7::Compare::Parser::Subcomponent;

with qw(
	App::HL7::Compare::Parser::Role::Partible
	App::HL7::Compare::Parser::Role::Part
	App::HL7::Compare::Parser::Role::RequiresInput
);

sub part_separator
{
	my ($self) = @_;

	return $self->msg_config->subcomponent_separator;
}

sub _build_parts
{
	my ($self) = @_;

	return $self->split_and_build($self->consume_input, 'App::HL7::Compare::Parser::Subcomponent');
}

1;