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