File Coverage

blib/lib/XML/SRS/Server/Filter/List.pm

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

package XML::SRS::Server::Filter::List;
BEGIN {
  $XML::SRS::Server::Filter::List::VERSION = '0.09';
}

use Moose;
use PRANG::Graph;

use XML::SRS::Server::Filter;

use Moose::Util::TypeConstraints;

has_element 'server_filter' =>
	is => 'ro',
	isa => 'ArrayRef[XML::SRS::Server::Filter]',
	xml_nodeName => 'ServerFilter',
	coerce => 0,
	required => 1,
	;

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

with 'XML::SRS::Node';

1;