File Coverage

blib/lib/XML/SRS/Handle/Update.pm
Criterion Covered Total %
statement 2 4 50.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 4 6 66.6


line stmt bran cond sub pod time code
1             package XML::SRS::Handle::Update;
2             BEGIN {
3 1     1   4793 $XML::SRS::Handle::Update::VERSION = '0.09';
4             }
5              
6 1     1   473 use Moose;
  0            
  0            
7             use PRANG::Graph;
8             use XML::SRS::Types;
9             use XML::SRS::Server::List;
10             use PRANG::XMLSchema::Types;
11              
12             # attributes
13             has_attr 'handle_id' =>
14             is => "ro",
15             isa => "Str",
16             xml_name => "HandleId",
17             predicate => "has_handle_id",
18             ;
19              
20             has_attr 'name' =>
21             is => "ro",
22             isa => "Str",
23             xml_name => "Name",
24             xml_required => 0,
25             predicate => "has_name",
26             ;
27              
28             has_attr 'email' =>
29             is => "ro",
30             isa => "Str",
31             xml_name => "Email",
32             xml_required => 0,
33             predicate => "has_email",
34             ;
35              
36             has_attr 'delete' =>
37             is => 'rw',
38             isa => 'PRANG::XMLSchema::boolean',
39             xml_name => 'Delete',
40             xml_required => 0,
41             ;
42              
43             # elements
44             has_element 'address' =>
45             is => "ro",
46             isa => "XML::SRS::Contact::Address",
47             xml_nodeName => "PostalAddress",
48             predicate => "has_address",
49             xml_required => 0,
50             coerce => 1,
51             ;
52              
53             has_element 'phone' =>
54             is => "ro",
55             isa => "XML::SRS::Contact::PSTN",
56             predicate => "has_phone",
57             xml_nodeName => "Phone",
58             xml_required => 0,
59             coerce => 1,
60             ;
61              
62             has_element 'fax' =>
63             is => "ro",
64             isa => "XML::SRS::Contact::PSTN",
65             predicate => "has_fax",
66             xml_nodeName => "Fax",
67             xml_required => 0,
68             coerce => 1,
69             ;
70              
71             has_element 'audit' =>
72             is => "rw",
73             isa => "XML::SRS::AuditDetails",
74             xml_nodeName => "AuditDetails",
75             xml_required => 0,
76             predicate => "has_audit",
77             ;
78              
79             with 'XML::SRS::Audit';
80              
81             sub root_element {'HandleUpdate'}
82             with 'XML::SRS::Action';
83              
84             1;