line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
|
package XML::EPP::Contact; |
3
|
1
|
|
|
1
|
|
2646
|
use Moose::Role; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
with qw(XML::EPP::Plugin PRANG::Graph); |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
use Moose::Util::TypeConstraints; |
8
|
|
|
|
|
|
|
use PRANG::XMLSchema::Types; |
9
|
|
|
|
|
|
|
use XML::EPP::Common; |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
our $PKG; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
BEGIN { |
14
|
|
|
|
|
|
|
$PKG = 'XML::EPP::Contact'; |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
enum "${PKG}::statusValueType" => qw ( |
17
|
|
|
|
|
|
|
clientDeleteProhibited |
18
|
|
|
|
|
|
|
clientTransferProhibited |
19
|
|
|
|
|
|
|
clientUpdateProhibited |
20
|
|
|
|
|
|
|
linked |
21
|
|
|
|
|
|
|
ok |
22
|
|
|
|
|
|
|
pendingCreate |
23
|
|
|
|
|
|
|
pendingDelete |
24
|
|
|
|
|
|
|
pendingTransfer |
25
|
|
|
|
|
|
|
pendingUpdate |
26
|
|
|
|
|
|
|
serverDeleteProhibited |
27
|
|
|
|
|
|
|
serverTransferProhibited |
28
|
|
|
|
|
|
|
serverUpdateProhibited |
29
|
|
|
|
|
|
|
); |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
enum "${PKG}::postalInfoEnumType" => qw ( |
32
|
|
|
|
|
|
|
loc |
33
|
|
|
|
|
|
|
int |
34
|
|
|
|
|
|
|
); |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
subtype "${PKG}::postalLineType" |
37
|
|
|
|
|
|
|
=> as 'Str' |
38
|
|
|
|
|
|
|
=> where { |
39
|
|
|
|
|
|
|
length($_) >= 1 and length($_) <= 255; |
40
|
|
|
|
|
|
|
}; |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
subtype "${PKG}::optPostalLineType" |
43
|
|
|
|
|
|
|
=> as 'Str' |
44
|
|
|
|
|
|
|
=> where { |
45
|
|
|
|
|
|
|
length($_) <= 255; |
46
|
|
|
|
|
|
|
}; |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
subtype "${PKG}::ccType" |
49
|
|
|
|
|
|
|
=> as "PRANG::XMLSchema::token" |
50
|
|
|
|
|
|
|
=> where { |
51
|
|
|
|
|
|
|
length($_) == 2; |
52
|
|
|
|
|
|
|
}; |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
subtype "${PKG}::e164StringType" |
55
|
|
|
|
|
|
|
=> as "PRANG::XMLSchema::token" |
56
|
|
|
|
|
|
|
=> where { |
57
|
|
|
|
|
|
|
length($_) <= 17 and $_ =~ m{\A\+[0-9]{1,3}\.[0-9]{1,14}\z}xms; |
58
|
|
|
|
|
|
|
}; |
59
|
|
|
|
|
|
|
} |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
use XML::EPP::Contact::Check; |
62
|
|
|
|
|
|
|
use XML::EPP::Contact::Info; |
63
|
|
|
|
|
|
|
use XML::EPP::Contact::Transfer; |
64
|
|
|
|
|
|
|
use XML::EPP::Contact::Create; |
65
|
|
|
|
|
|
|
use XML::EPP::Contact::Delete; |
66
|
|
|
|
|
|
|
use XML::EPP::Contact::Update; |
67
|
|
|
|
|
|
|
use XML::EPP::Contact::Notification; |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
use XML::EPP::Contact::Check::Response; |
70
|
|
|
|
|
|
|
use XML::EPP::Contact::Info::Response; |
71
|
|
|
|
|
|
|
use XML::EPP::Contact::Transfer::Response; |
72
|
|
|
|
|
|
|
use XML::EPP::Contact::Create::Response; |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
# load up all other classes under XML::EPP::Contact |
75
|
|
|
|
|
|
|
use XML::EPP::Contact::AddRem; |
76
|
|
|
|
|
|
|
use XML::EPP::Contact::Addr; |
77
|
|
|
|
|
|
|
use XML::EPP::Contact::AuthInfo; |
78
|
|
|
|
|
|
|
use XML::EPP::Contact::Change; |
79
|
|
|
|
|
|
|
use XML::EPP::Contact::ChangePostalInfo; |
80
|
|
|
|
|
|
|
use XML::EPP::Contact::Create; |
81
|
|
|
|
|
|
|
use XML::EPP::Contact::Disclose; |
82
|
|
|
|
|
|
|
use XML::EPP::Contact::E164; |
83
|
|
|
|
|
|
|
use XML::EPP::Contact::ID; |
84
|
|
|
|
|
|
|
use XML::EPP::Contact::Location; |
85
|
|
|
|
|
|
|
use XML::EPP::Contact::Node; |
86
|
|
|
|
|
|
|
use XML::EPP::Contact::PostalInfo; |
87
|
|
|
|
|
|
|
use XML::EPP::Contact::RQ; |
88
|
|
|
|
|
|
|
use XML::EPP::Contact::RS; |
89
|
|
|
|
|
|
|
use XML::EPP::Contact::Status; |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
1; |