File Coverage

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


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