File Coverage

blib/lib/SRS/EPP/SRSMessage.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package SRS::EPP::SRSMessage;

use 5.010;
use Moose;

extends "SRS::EPP::Message";

has 'parts' =>
	is => "rw",
	isa => "ArrayRef[SRS::EPP::Message]",
	;

has "+message" =>
	isa => "XML::SRS",
	;

after 'message_trigger' => sub {
	my $self = shift;
	return if $self->parts and @{$self->parts};
	my $message = $self->message;
	my ($class, $method);
	if ( $message->isa("XML::SRS::Request") ) {
		$class = "SRS::EPP::SRSRequest";
		$method = "requests";
	}
	else {
		$class = "SRS::EPP::SRSResponse";
		$method = "results";
	}
	$self->parts( [
		map {
			$class->new( message => $_ )
		}
			@{ $message->$method//[] }
		       ] );
};

1;