File Coverage

blib/lib/Net/Whois/Object/Person.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Net::Whois::Object::Person;
2              
3 1     1   58640 use strict;
  1         9  
  1         23  
4 1     1   5 use warnings;
  1         2  
  1         22  
5 1     1   4 use base qw/Net::Whois::Object/;
  1         2  
  1         430  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl Person'
9              
10             # % This is the RIPE Database query service.
11             # % The objects are in RPSL format.
12             # %
13             # % The RIPE Database is subject to Terms and Conditions.
14             # % See http://www.ripe.net/db/support/db-terms-conditions.pdf
15             #
16             # person: [mandatory] [single] [lookup key]
17             # address: [mandatory] [multiple] [ ]
18             # phone: [mandatory] [multiple] [ ]
19             # fax-no: [optional] [multiple] [ ]
20             # e-mail: [optional] [multiple] [lookup key]
21             # org: [optional] [multiple] [inverse key]
22             # nic-hdl: [mandatory] [single] [primary/lookup key]
23             # remarks: [optional] [multiple] [ ]
24             # notify: [optional] [multiple] [inverse key]
25             # abuse-mailbox: [optional] [multiple] [inverse key]
26             # mnt-by: [mandatory] [multiple] [inverse key]
27             # changed: [mandatory] [multiple] [ ]
28             # created: [generated] [single] [ ]
29             # last-modified: [generated] [single] [ ]
30             # source: [mandatory] [single] [ ]
31             #
32             # % This query was served by the RIPE Database Query Service version 1.79.2 (DB-4)
33             #
34             #
35             __PACKAGE__->attributes( 'primary', [ 'person' ] );
36             __PACKAGE__->attributes( 'mandatory', [ 'person', 'address', 'phone', 'nic_hdl', 'mnt_by', 'changed', 'source' ] );
37             __PACKAGE__->attributes( 'optional', [ 'fax_no', 'e_mail', 'org', 'remarks', 'notify', 'abuse_mailbox', 'created', 'last_modified' ] );
38             __PACKAGE__->attributes( 'single', [ 'person', 'nic_hdl', 'created', 'last_modified', 'source' ] );
39             __PACKAGE__->attributes( 'multiple', [ 'address', 'phone', 'fax_no', 'e_mail', 'org', 'remarks', 'notify', 'abuse_mailbox', 'mnt_by', 'changed' ] );
40              
41             # End of auto-generated lines
42             #######################################################################################
43              
44             =head1 NAME
45              
46             Net::Whois::Object::Person - an object representation of the RPSL Person block
47              
48             =head1 DESCRIPTION
49              
50             A person object contains information about technical or administrative
51             contact responsible for the object where it is referenced. Once the
52             object is created, the value of the "person:" attribute cannot be
53             changed.
54              
55             =head1 METHODS
56              
57             =head2 B
58              
59             Constructor for the Net::Whois::Object::Person class
60              
61             =cut
62              
63             sub new {
64 1     1 1 3 my ( $class, @options ) = @_;
65              
66 1         3 my $self = bless {}, $class;
67 1         10 $self->_init(@options);
68              
69 1         3 return $self;
70             }
71              
72             =head2 B
73              
74             Accessor to the person attribute.
75             Accepts an optional person, always return the current person.
76              
77             =head2 B
78              
79             Accessor to the address attribute.
80             Accepts an optional address line to be added to the address array,
81             always return the current address array.
82              
83             =head2 B
84              
85             Accessor to the phone attribute.
86             Accepts an optional phone number to be added to the phone array,
87             always return the current phone array.
88              
89             =head2 B
90              
91             Accessor to the fax_no attribute.
92             Accepts an optional fax_no to be added to the fax_no array,
93             always return the current fax_no array.
94              
95             =head2 B
96              
97             Accessor to the e_mail attribute.
98             Accepts an optional e_mail to be added to the e_mail array,
99             always return the current e_mail array.
100              
101             =head2 B
102              
103             Accessor to the org attribute.
104             Accepts an optional org, always return the current org array.
105              
106             Points to an existing organisation object representing the entity that
107             holds the resource.
108              
109             The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
110             followed by a source specification. The first digit must not be "0".
111             Source specification starts with "-" followed by source name up to
112             9-character length.
113              
114             =head2 B
115              
116             Accessor to the nic_hdl attribute.
117             Accepts an optional nic_hdl, always return the current nic_hdl.
118              
119             =head2 B
120              
121             Accessor to the remarks attribute.
122             Accepts an optional remark to be added to the remarks array,
123             always return the current remarks array.
124              
125             =head2 B
126              
127             Accessor to the notify attribute.
128             Accepts an optional notify value to be added to the notify array,
129             always return the current notify array.
130              
131             =head2 B
132              
133             Accessor to the abuse_mailbox attribute.
134             Accepts an optional abuse_mailbox value to be added to the abuse_mailbox array,
135             always return the current abuse_mailbox array.
136              
137             =head2 B
138              
139             Accessor to the mnt_by attribute.
140             Accepts an optional mnt_by value to be added to the mnt_by array,
141             always return the current mnt_by array.
142              
143             =head2 B
144              
145             Accessor to the changed attribute.
146             Accepts an optional changed value to be added to the changed array,
147             always return the current changed array.
148              
149             =head2 B
150              
151             Accessor to the source attribute.
152             Accepts an optional source, always return the current source.
153              
154             =cut
155              
156             1;