File Coverage

blib/lib/XML/SRS/Contact/Address.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              
2             package XML::SRS::Contact::Address;
3             BEGIN {
4 1     1   2554 $XML::SRS::Contact::Address::VERSION = '0.09';
5             }
6              
7 1     1   416 use Moose;
  0            
  0            
8             use PRANG::Graph;
9              
10             sub address() {
11             my $self = shift;
12            
13             ( $self->address1,
14             $self->address2,
15             $self->city,
16             $self->region,
17             $self->postcode,
18             $self->cc,
19             );
20             }
21              
22             has_attr 'address1' =>
23             is => "rw",
24             isa => "Str",
25             xml_required => 0,
26             xml_name => "Address1",
27             ;
28              
29             has_attr 'address2' =>
30             is => "rw",
31             isa => "Str",
32             xml_required => 0,
33             xml_name => "Address2",
34             ;
35              
36             has_attr 'city' =>
37             is => "rw",
38             isa => "Str",
39             xml_required => 0,
40             xml_name => "City",
41             ;
42              
43             has_attr 'region' =>
44             is => "rw",
45             isa => "Str",
46             xml_required => 0,
47             xml_name => "Province",
48             ;
49              
50             has_attr 'cc' =>
51             is => "rw",
52             isa => "Str",
53             xml_required => 0,
54             xml_name => "CountryCode",
55             ;
56              
57             has_attr 'postcode' =>
58             is => "rw",
59             isa => "Str",
60             xml_required => 0,
61             xml_name => "PostalCode",
62             ;
63              
64             with 'XML::SRS::Node';
65              
66             use Moose::Util::TypeConstraints;
67              
68             coerce __PACKAGE__
69             => from "HashRef"
70             => via { __PACKAGE__->new(%$_); };
71              
72             1;
73              
74             __END__
75              
76             =head1 NAME
77              
78             XML::SRS::Contact::Address - Class representing an SRS Address
79              
80             =head1 DESCRIPTION
81              
82             This class represents an SRS Phone number object.
83              
84             =head1 ATTRIBUTES
85              
86             Each attribute of this class has an accessor/mutator of the same name as
87             the attribute. Additionally, they can be passed as parameters to the
88             constructor.
89              
90             =head2 city
91              
92             Must be of type Str. Maps to the XML attribute 'City'
93              
94             =head2 cc
95              
96             Must be of type Str. Maps to the XML attribute 'CountryCode'
97              
98             =head2 region
99              
100             Must be of type Str. Maps to the XML attribute 'Province'
101              
102             =head2 address1
103              
104             Must be of type Str. Maps to the XML attribute 'Address1'
105              
106             =head2 postcode
107              
108             Must be of type Str. Maps to the XML attribute 'PostalCode'
109              
110             =head2 address2
111              
112             Must be of type Str. Maps to the XML attribute 'Address2'
113              
114             =head1 METHODS
115              
116             =head2 new(%params)
117              
118             Construct a new XML::SRS::Request object. %params specifies the initial
119             values of the attributes.
120              
121             =head1 COMPOSED OF
122              
123             L<XML::SRS::Node>