File Coverage

blib/lib/XML/EPP/Login.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::EPP::Login;
3              
4 1     1   3065 use Moose;
  0            
  0            
5             use MooseX::Method::Signatures;
6             use Moose::Util::TypeConstraints;
7             use PRANG::Graph;
8              
9             our $PKG = "XML::EPP::Login";
10             our $SCHEMA_PKG = "XML::EPP";
11              
12             use XML::EPP;
13             use XML::EPP::Common;
14              
15             has_element 'client_id' =>
16             is => "rw",
17             isa => "XML::EPP::Common::clIDType",
18             xml_nodeName => "clID",
19             required => 1,
20             ;
21              
22             has_element 'password' =>
23             is => "rw",
24             isa => "${SCHEMA_PKG}::pwType",
25             xml_nodeName => "pw",
26             required => 1,
27             ;
28              
29             has_element 'new_password' =>
30             is => "rw",
31             predicate => "has_new_password",
32             isa => "${SCHEMA_PKG}::pwType",
33             xml_nodeName => "newPW",
34             ;
35              
36             has_element 'options' =>
37             is => "rw",
38             isa => "${SCHEMA_PKG}::credsOptionsType",
39             required => 1,
40             ;
41              
42             has_element 'services' =>
43             is => "rw",
44             isa => "${SCHEMA_PKG}::loginSvcType",
45             xml_nodeName => "svcs",
46             required => 1,
47             ;
48              
49             with 'XML::EPP::Node';
50              
51             # based on epp-1.0.xsd:loginType
52             subtype "${SCHEMA_PKG}::loginType" =>
53             as __PACKAGE__;
54              
55             1;