File Coverage

blib/lib/Net/Whois/Object/Organisation.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::Organisation;
2              
3 2     2   76721 use strict;
  2         12  
  2         59  
4 2     2   10 use warnings;
  2         7  
  2         54  
5 2     2   9 use base qw/Net::Whois::Object/;
  2         5  
  2         1005  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl Organisation'
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             # organisation: [mandatory] [single] [primary/lookup key]
17             # org-name: [mandatory] [single] [lookup key]
18             # org-type: [mandatory] [single] [ ]
19             # descr: [optional] [multiple] [ ]
20             # remarks: [optional] [multiple] [ ]
21             # address: [mandatory] [multiple] [ ]
22             # country: [optional] [single] [ ]
23             # phone: [optional] [multiple] [ ]
24             # fax-no: [optional] [multiple] [ ]
25             # e-mail: [mandatory] [multiple] [lookup key]
26             # geoloc: [optional] [single] [ ]
27             # language: [optional] [multiple] [ ]
28             # org: [optional] [multiple] [inverse key]
29             # admin-c: [optional] [multiple] [inverse key]
30             # tech-c: [optional] [multiple] [inverse key]
31             # abuse-c: [optional] [single] [inverse key]
32             # ref-nfy: [optional] [multiple] [inverse key]
33             # mnt-ref: [mandatory] [multiple] [inverse key]
34             # notify: [optional] [multiple] [inverse key]
35             # mnt-by: [mandatory] [multiple] [inverse key]
36             # created: [generated] [single] [ ]
37             # last-modified: [generated] [single] [ ]
38             # source: [mandatory] [single] [ ]
39             #
40             # % This query was served by the RIPE Database Query Service version 1.99 (HEREFORD)
41             #
42             #
43             __PACKAGE__->attributes( 'primary', [ 'organisation' ] );
44             __PACKAGE__->attributes( 'mandatory', [ 'organisation', 'org_name', 'org_type', 'address', 'e_mail', 'mnt_ref', 'mnt_by', 'source' ] );
45             __PACKAGE__->attributes( 'optional', [ 'descr', 'remarks', 'country', 'phone', 'fax_no', 'geoloc', 'language', 'org', 'admin_c', 'tech_c', 'abuse_c', 'ref_nfy', 'notify', 'created', 'last_modified' ] );
46             __PACKAGE__->attributes( 'single', [ 'organisation', 'org_name', 'org_type', 'country', 'geoloc', 'abuse_c', 'created', 'last_modified', 'source' ] );
47             __PACKAGE__->attributes( 'multiple', [ 'descr', 'remarks', 'address', 'phone', 'fax_no', 'e_mail', 'language', 'org', 'admin_c', 'tech_c', 'ref_nfy', 'mnt_ref', 'notify', 'mnt_by' ] );
48              
49             # End of auto-generated lines
50             #######################################################################################
51              
52             =head1 NAME
53              
54             Net::Whois::Object::Organisation - an object representation of the RPSL Organisation block
55              
56             =head1 DESCRIPTION
57              
58             The organisation object is designed to provide an easy way of mapping resources to a particular organisaiton.
59              
60             =head1 METHODS
61              
62             =head2 B
63              
64             Constructor for the Net::Whois::Object::Organisation class
65              
66             =cut
67              
68             sub new {
69 1     1 1 4 my ( $class, @options ) = @_;
70              
71 1         3 my $self = bless {}, $class;
72 1         7 $self->_init(@options);
73              
74 1         3 return $self;
75             }
76              
77             =head2 B
78              
79             Accessor to the organisation attribute.
80             Accepts an optional organisation, always return the current organisation.
81              
82             =head2 B
83              
84             Accessor to the org_name attribute.
85             Accepts an optional org_name, always return the current org_name.
86              
87             =head2 B
88              
89             Accessor to the org_type attribute.
90             Accepts an optional org_type, always return the current org_type.
91              
92             Possible values are:
93             IANA for Internet Assigned Numbers Authority, RIR for Regional Internet
94             Registries, NIR for National Internet Registries, LIR for Local Internet
95             Registries, and OTHER for all other organisations.
96              
97             =head2 B
98              
99             Accessor to the org attribute.
100             Accepts an optional org, always return the current org.
101              
102             Points to an existing organisation object representing the entity that
103             holds the resource.
104              
105             The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
106             followed by a source specification. The first digit must not be "0".
107             Source specification starts with "-" followed by source name up to
108             9-character length.
109              
110             =head2 B
111              
112             Accessor to the address attribute.
113             Accepts an optional address line to be added to the address array,
114             always return the current address array.
115              
116             =head2 B
117              
118             Accessor to the phone attribute.
119             Accepts an optional phone number to be added to the phone array,
120             always return the current phone array.
121              
122             =head2 B
123              
124             Accessor to the fax_no attribute.
125             Accepts an optional fax_no to be added to the fax_no array,
126             always return the current fax_no array.
127              
128             =head2 B
129              
130             Accessor to the e_mail attribute.
131             Accepts an optional e_mail to be added to the e_mail array,
132             always return the current e_mail array.
133              
134             =head2 B
135              
136             Accessor to the geoloc attribute.
137             Accepts an optional geoloc, always return the current geoloc.
138              
139             =head2 B
140              
141             Accessor to the language attribute.
142             Accepts an optional language to be added to the language array,
143             always return the current language array.
144              
145             =head2 B
146              
147             Accessor to the admin_c attribute.
148             Accepts an optional contact to be added to the admin_c array,
149             always return the current admin_c array.
150              
151             =head2 B
152              
153             Accessor to the abuse_c attribute.
154             Accepts an optional contact to be added to the abuse_c array,
155             always return the current abuse_c array.
156              
157             =head2 B
158              
159             Accessor to the tech_c attribute.
160             Accepts an optional contact to be added to the tech_c array,
161             always return the current tech_c array.
162              
163             =head2 B
164              
165             Accessor to the descr attribute.
166             Accepts an optional descr line to be added to the descr array,
167             always return the current descr array.
168              
169             =head2 B
170              
171             Accessor to the remarks attribute.
172             Accepts an optional remark to be added to the remarks array,
173             always return the current remarks array.
174              
175             =head2 B
176              
177             Accessor to the notify attribute.
178             Accepts an optional notify value to be added to the notify array,
179             always return the current notify array.
180              
181             =head2 B
182              
183             Accessor to the mnt_by attribute.
184             Accepts an optional mnt_by value to be added to the mnt_by array,
185             always return the current mnt_by array.
186              
187             =head2 B
188              
189             Accessor to the changed attribute.
190             Accepts an optional changed value to be added to the changed array,
191             always return the current changed array.
192              
193             =head2 B
194              
195             Accessor to the source attribute.
196             Accepts an optional source, always return the current source.
197              
198             =head2 B
199              
200             Accessor to the ref_nfy attribute.
201             Accepts an optional ref_nfy value to be added to the ref_nfy array,
202             always return the current ref_nfy array.
203              
204             =head2 B
205              
206             Accessor to the mnt_ref attribute.
207             Accepts an optional mnt_ref value to be added to the mnt_ref array,
208             always return the current mnt_ref array.
209              
210             =cut
211              
212             1;