File Coverage

blib/lib/XML/EPP/RequestedSvcs.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::RequestedSvcs;
3              
4             # FIXME: make a ::ServiceList role; this is very similar to SvcMenu
5              
6 1     1   2478 use Moose;
  0            
  0            
7             use MooseX::Method::Signatures;
8             use Moose::Util::TypeConstraints;
9             use PRANG::Graph;
10              
11             our $SCHEMA_PKG = "XML::EPP";
12              
13             has_element 'objURI' =>
14             is => "rw",
15             isa => "ArrayRef[PRANG::XMLSchema::anyURI]",
16             required => 1,
17             ;
18              
19             has_element 'svcExtension' =>
20             is => "rw",
21             isa => "XML::EPP::ExtURI",
22             predicate => "has_svcExtension",
23             ;
24              
25             with 'XML::EPP::Node';
26              
27             subtype "${SCHEMA_PKG}::loginSvcType"
28             => as __PACKAGE__;
29              
30             1;