File Coverage

blib/lib/XML/SRS/Handle/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::Handle::Create;
2              
3 1     1   1422 use Moose;
  0            
  0            
4             use PRANG::Graph;
5             use XML::SRS::Types;
6             use XML::SRS::Server::List;
7              
8             # attributes
9             has_attr 'handle_id' =>
10             is => "ro",
11             isa => "Str",
12             xml_name => "HandleId",
13             predicate => "has_handle_id",
14             ;
15              
16             has_attr 'name' =>
17             is => "ro",
18             isa => "Str",
19             xml_name => "Name",
20             predicate => "has_name",
21             ;
22              
23             has_attr 'email' =>
24             is => "ro",
25             isa => "Str",
26             xml_name => "Email",
27             predicate => "has_email",
28             ;
29              
30             has_attr 'action_id' =>
31             is => "ro",
32             isa => "Str",
33             xml_name => "ActionId",
34             predicate => "has_action_id",
35             ;
36              
37             # elements
38             has_element 'address' =>
39             is => "ro",
40             isa => "XML::SRS::Contact::Address",
41             xml_nodeName => "PostalAddress",
42             predicate => "has_address",
43             coerce => 1,
44             ;
45              
46             has_element 'phone' =>
47             is => "ro",
48             isa => "XML::SRS::Contact::PSTN",
49             predicate => "has_phone",
50             xml_nodeName => "Phone",
51             coerce => 1,
52             ;
53              
54             has_element 'fax' =>
55             is => "ro",
56             isa => "XML::SRS::Contact::PSTN",
57             predicate => "has_fax",
58             xml_nodeName => "Fax",
59             coerce => 1,
60             ;
61              
62             has_element 'audit' =>
63             is => "rw",
64             isa => "XML::SRS::AuditDetails",
65             xml_nodeName => "AuditDetails",
66             predicate => "has_audit",
67             ;
68              
69             with 'XML::SRS::Audit';
70              
71             sub root_element { 'HandleCreate' }
72             with 'XML::SRS::Action';
73              
74             1;