File Coverage

blib/lib/XML/SRS/ACL/Query.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


line stmt bran cond sub pod time code
1              
2             package XML::SRS::ACL::Query;
3              
4 1     1   1463 use Moose;
  0            
  0            
5             use PRANG::Graph;
6             use Moose::Util::TypeConstraints;
7              
8             sub root_element {
9             "AccessControlListQry";
10             }
11              
12             has_attr "Resource" =>
13             is => "ro",
14             isa => "Str",
15             ;
16              
17             has_attr "List" =>
18             is => "ro",
19             isa => "Str",
20             ;
21              
22             has_attr "Type" =>
23             is => "ro",
24             isa => "Str",
25             ;
26              
27             has_attr "FullResult" =>
28             is => "ro",
29             isa => "Bool",
30             coerce => 1,
31             default => 0,
32             ;
33              
34             has "filter_types" =>
35             is => "ro",
36             isa => "ArrayRef[Str]",
37             default => sub { [] },
38             ;
39              
40             has_element "filter" =>
41             is => "ro",
42             isa => "ArrayRef[Str]",
43             xml_nodeName => {
44             DomainNameFilter => "Str",
45             RegistrarIdFilter => "Str",
46             AddressFilter => "Str",
47             },
48             xml_nodeName_attr => "filter_types",
49             ;
50              
51             with 'XML::SRS::Query';
52              
53             1;