File Coverage

blib/lib/XML/SRS/Registrar.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::Registrar;
3             BEGIN {
4 1     1   2565 $XML::SRS::Registrar::VERSION = '0.09';
5             }
6              
7 1     1   403 use Moose;
  0            
  0            
8             use PRANG::Graph;
9             use XML::SRS::Types;
10              
11             use XML::SRS::Contact;
12             use XML::SRS::Password;
13             use XML::SRS::Zone::List;
14             use XML::SRS::Role::List;
15              
16             has_attr 'id' =>
17             is => "ro",
18             isa => "XML::SRS::RegistrarId",
19             required => 1,
20             xml_name => "RegistrarId",
21             ;
22              
23             has_attr 'name' =>
24             is => "ro",
25             isa => "Str",
26             required => 1,
27             xml_name => "Name",
28             ;
29              
30             has_attr 'account_reference' =>
31             is => "ro",
32             isa => "Str",
33             required => 1,
34             xml_name => "AccRef",
35             ;
36              
37             has_attr 'url' =>
38             is => "ro",
39             isa => "Str",
40             xml_name => "URL",
41             xml_required => 0,
42             ;
43              
44             has_element 'contact_public' =>
45             is => "rw",
46             isa => "XML::SRS::Contact",
47             xml_nodeName => "RegistrarPublicContact",
48             coerce => 1,
49             required => 1,
50             ;
51              
52             has_element 'contact_private' =>
53             is => "rw",
54             isa => "XML::SRS::Contact",
55             xml_nodeName => "RegistrarSRSContact",
56             coerce => 1,
57             required => 1,
58             ;
59              
60             has_element 'contact_technical' =>
61             is => "rw",
62             isa => "XML::SRS::Contact",
63             xml_nodeName => "DefaultTechnicalContact",
64             coerce => 1,
65             required => 1,
66             ;
67              
68             use XML::SRS::Keyring;
69             has_element 'keyring' =>
70             is => "rw",
71             isa => "XML::SRS::Keyring",
72             xml_nodeName => "EncryptKeys",
73             required => 1,
74             ;
75              
76             has_element 'epp_auth' =>
77             is => "rw",
78             isa => "XML::SRS::Password",
79             xml_nodeName => "EPPAuth",
80             coerce => 1,
81             predicate => "has_epp_auth",
82             ;
83              
84             has_element 'allowed_zones' =>
85             is => "rw",
86             isa => "XML::SRS::Zone::List",
87             xml_nodeName => "Allowed2LDs",
88             predicate => "has_allowed_zones",
89             ;
90              
91             has_element 'roles' =>
92             is => "rw",
93             isa => "XML::SRS::Role::List",
94             xml_nodeName => "Roles",
95             predicate => "has_roles",
96             ;
97              
98             has_element 'audit' =>
99             is => "rw",
100             isa => "XML::SRS::AuditDetails",
101             xml_nodeName => "AuditDetails",
102             predicate => "has_audit",
103             ;
104              
105             sub root_element {"Registrar"}
106             with 'XML::SRS::ActionResponse';
107              
108             1;