File Coverage

blib/lib/XML/SRS/GetMessages.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package XML::SRS::GetMessages;

use Moose;
use PRANG::Graph;
use XML::SRS::Types;

sub root_element {
  "GetMessages";
}

has_attr 'query_id' =>
	is => "ro",
	isa => "XML::SRS::UID",
	xml_name => "QryId",
	predicate => "has_query_id",
	;

has_attr 'originating_registrar' =>
	is => "ro",
	isa => "Str",
	xml_name => "OriginatingRegistrarId",
	;

has_attr 'recipient_registrar' =>
	is => "ro",
	isa => "Str",
	xml_name => "RecipientRegistrarId",
	;

has_attr 'queue' =>
	is => "ro",
	isa => "Bool",
	xml_name => "QueueMode",
	;

has_element "when" =>
	is => "ro",
	isa => "ArrayRef[XML::SRS::Date::Range]",
	xml_nodeName => "TransDateRange",
	xml_required => 0,
	;

has_attr 'max_results' =>
	is => 'ro',
	isa => 'XML::SRS::Number',
	xml_name => 'MaxResults',
	xml_required => 0,
	;

use XML::SRS::GetMessages::TypeFilter;
has_element "type_filter" =>
	is => "ro",
	isa => "ArrayRef[XML::SRS::GetMessages::TypeFilter]",
	xml_min => 0,
	xml_nodeName => "TypeFilter",
	coerce => 1,
	;

use Moose::Util::TypeConstraints;
coerce 'ArrayRef[XML::SRS::GetMessages::TypeFilter]'
	=> from "ArrayRef[Str]"
	=> via {
		[ map {
			XML::SRS::GetMessages::TypeFilter->new(
				Type => $_,
			       );
		} @$_ ];
	};

with 'XML::SRS::Query';
1;