File Coverage

blib/lib/XML/SRS/Domain/Create.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             package XML::SRS::Domain::Create;
2              
3 1     1   1491 use Moose;
  0            
  0            
4             use PRANG::Graph;
5             use XML::SRS::Types;
6             use XML::SRS::Server::List;
7              
8             has_attr 'domain_name' =>
9             is => "ro",
10             isa => "XML::SRS::DomainName",
11             xml_name => "DomainName",
12             required => 1,
13             ;
14              
15             has_attr 'domain_name_unicode' =>
16             is => "ro",
17             isa => "XML::SRS::DomainName",
18             xml_name => "DomainNameUnicode",
19             ;
20              
21             has_attr 'registrant_ref' =>
22             is => "ro",
23             isa => "XML::SRS::UID",
24             xml_name => "RegistrantRef",
25             xml_required => 0,
26             ;
27              
28             has_attr 'term' =>
29             is => "ro",
30             isa => "XML::SRS::Term",
31             xml_name => "Term",
32             required => 1,
33             ;
34              
35             has_attr 'delegate' =>
36             is => "ro",
37             isa => "XML::SRS::Boolean",
38             xml_name => "Delegate",
39             xml_required => 0,
40             ;
41              
42             has_element 'contact_registrant' =>
43             is => "ro",
44             isa => "XML::SRS::Contact",
45             xml_nodeName => "RegistrantContact",
46             required => 1,
47             coerce => 1,
48             ;
49              
50             has_element 'contact_admin' =>
51             is => "ro",
52             isa => "XML::SRS::Contact",
53             xml_nodeName => "AdminContact",
54             xml_required => 0,
55             coerce => 1,
56             ;
57              
58             has_element 'contact_technical' =>
59             is => "ro",
60             isa => "XML::SRS::Contact",
61             xml_nodeName => "TechnicalContact",
62             xml_required => 0,
63             coerce => 1,
64             ;
65              
66             has_element "nameservers" =>
67             is => "ro",
68             isa => "XML::SRS::Server::List",
69             xml_nodeName => "NameServers",
70             xml_required => 0,
71             coerce => 1,
72             ;
73              
74             with 'XML::SRS::Audit';
75              
76             sub root_element { 'DomainCreate' }
77             with 'XML::SRS::Action';
78              
79             1;