$App::HL7::Compare::Parser::Role::RequiresInput::VERSION = '0.004';
use v5.10;
use strict;
use Types::Standard qw(Str);
has param 'input' => (
isa => Str,
writer => -hidden,
predicate => -hidden,
clearer => -hidden,
);
sub consume_input
{
my ($self) = @_;
App::HL7::Compare::Exception->raise('input already consumed')
unless $self->_has_input;
my $input = $self->input;
$self->_clear_input;
return $input;
}
1;