File Coverage

blib/lib/XML/SRS/Server/List.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::Server::List;

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

use Moose::Util::TypeConstraints;

use XML::SRS::Server;
has_element 'nameservers' =>
	is => "rw",
	isa => "ArrayRef[XML::SRS::Server]",
	xml_nodeName => "Server",
	;

coerce __PACKAGE__
	=> from 'ArrayRef[Str]'
	=> via {
		__PACKAGE__->new(
			nameservers => [
				map {
					XML::SRS::Server->new( fqdn => $_ );
				} @$_
			       ],
		       );
	};

coerce __PACKAGE__
	=> from 'ArrayRef[HashRef]'
	=> via {
		__PACKAGE__->new(
			nameservers => [
				map {
					XML::SRS::Server->new( $_ );
				} @$_
			       ],
		       );
	};

with 'XML::SRS::Node';

1;