File Coverage

blib/lib/Net/Whois/Object/Irt.pm
Criterion Covered Total %
statement 18 19 94.7
branch 1 2 50.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 3 3 100.0
total 30 33 90.9


line stmt bran cond sub pod time code
1             package Net::Whois::Object::Irt;
2              
3 1     1   79438 use strict;
  1         11  
  1         30  
4 1     1   6 use warnings;
  1         1  
  1         28  
5 1     1   4 use base qw/Net::Whois::Object/;
  1         2  
  1         604  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl Irt'
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             # irt: [mandatory] [single] [primary/lookup key]
17             # address: [mandatory] [multiple] [ ]
18             # phone: [optional] [multiple] [ ]
19             # fax-no: [optional] [multiple] [ ]
20             # e-mail: [mandatory] [multiple] [lookup key]
21             # signature: [optional] [multiple] [ ]
22             # encryption: [optional] [multiple] [ ]
23             # org: [optional] [multiple] [inverse key]
24             # admin-c: [mandatory] [multiple] [inverse key]
25             # tech-c: [mandatory] [multiple] [inverse key]
26             # auth: [mandatory] [multiple] [inverse key]
27             # remarks: [optional] [multiple] [ ]
28             # irt-nfy: [optional] [multiple] [inverse key]
29             # notify: [optional] [multiple] [inverse key]
30             # mnt-by: [mandatory] [multiple] [inverse key]
31             # created: [generated] [single] [ ]
32             # last-modified: [generated] [single] [ ]
33             # source: [mandatory] [single] [ ]
34             #
35             # % This query was served by the RIPE Database Query Service version 1.99 (HEREFORD)
36             #
37             #
38             __PACKAGE__->attributes( 'primary', [ 'irt' ] );
39             __PACKAGE__->attributes( 'mandatory', [ 'irt', 'address', 'e_mail', 'admin_c', 'tech_c', 'auth', 'mnt_by', 'source' ] );
40             __PACKAGE__->attributes( 'optional', [ 'phone', 'fax_no', 'signature', 'encryption', 'org', 'remarks', 'irt_nfy', 'notify', 'created', 'last_modified' ] );
41             __PACKAGE__->attributes( 'single', [ 'irt', 'created', 'last_modified', 'source' ] );
42             __PACKAGE__->attributes( 'multiple', [ 'address', 'phone', 'fax_no', 'e_mail', 'signature', 'encryption', 'org', 'admin_c', 'tech_c', 'auth', 'remarks', 'irt_nfy', 'notify', 'mnt_by' ] );
43              
44             # End of auto-generated lines
45             #######################################################################################
46              
47             =head1 NAME
48              
49             Net::Whois::Object::Irt - an object representation of the RPSL Irt block
50              
51             =head1 DESCRIPTION
52              
53             The irt object is used to provide information about a Computer Security
54             Incident Response Team (CSIRT). IRTs or CSIRTs specifically respond to
55             computer security incident reports and activity.
56              
57             They are dedicated abuse handling teams, (as distinct from network operational
58             departments) which review and respond to abuse reports.
59              
60             =head1 METHODS
61              
62             =head2 B
63              
64             Constructor for the Net::Whois::Object::Irt class
65              
66             =cut
67              
68             sub new {
69 1     1 1 5 my ( $class, @options ) = @_;
70              
71 1         4 my $self = bless {}, $class;
72 1         10 $self->_init(@options);
73              
74              
75 1         5 return $self;
76              
77             }
78              
79             =head2 B
80              
81             Accessor to the irt attribute.
82             Accepts an optional irt, always return the current irt.
83              
84             The irt object name starts with "IRT-".
85              
86             =cut
87              
88             sub irt {
89 5     5 1 15 my ( $self, $irt ) = @_;
90 5 50 66     26 if ( $irt and $irt !~ /^IRT-/i ) {
91 0         0 warn "Irt name not valid ($irt) : Should start with 'IRT-'";
92             }
93 5         19 return $self->_single_attribute_setget( 'irt', $irt );
94             }
95              
96             =head2 B
97              
98             Accessor to the address attribute.
99             Accepts an optional address to be added to the address array,
100             always return the current address array.
101              
102             Full postal address of a contact.
103              
104             You can use any combination of alphanumeric characters.
105             More than one line can be used.
106              
107             =cut
108              
109             sub address {
110 10     10 1 26 my ( $self, $address ) = @_;
111              
112 10         28 return $self->_multiple_attribute_setget( 'address', $address );
113             }
114              
115             =head2 B
116              
117             Accessor to the phone attribute.
118             Accepts an optional phone number to be added to the phone array,
119             always return the current phone array.
120              
121             A contact telephone number.
122              
123             +
124              
125             + ext. <#>
126              
127             EXAMPLE
128             phone: +681 368 0844 ext. 32
129              
130             =head2 B
131              
132             Accessor to the fax_no attribute.
133             Accepts an optional fax_no to be added to the fax_no array,
134             always return the current fax_no array.
135              
136             A contact fax number.
137              
138             +
139              
140             =head2 B
141              
142             Accessor to the e_mail attribute.
143             Accepts an optional e_mail to be added to the e_mail array,
144             always return the current e_mail array.
145              
146             A contact email address for non-abuse/technical incidents.
147              
148             =head2 B
149              
150             Accessor to the abuse_mailbox attribute.
151             Accepts an optional abuse_mailbox to be added to the abuse_mailbox array,
152             always return the current abuse_mailbox array.
153              
154             Specifies the email address to which abuse complaints should be sent.
155              
156             =head2 B
157              
158             Accessor to the signature attribute.
159             Accepts an optional signature to be added to the signature array,
160             always return the current signature array.
161              
162             References a KeyCert object representing a CSIRT public key used by the
163             team to sign their correspondence.
164              
165             =head2 B
166              
167             Accessor to the encryption attribute.
168             Accepts an optional encryption to be added to the encryption array,
169             always return the current encryption array.
170              
171             References a KeyCert object representing a CSIRT public key used to encrypt
172             correspondence sent to the CSIRT.
173              
174             =head2 B
175              
176             Accessor to the org attribute.
177             Accepts an optional org value to be added to the org array,
178             always return the current org array.
179              
180             The organisation responsible for this resource.
181              
182             =head2 B
183              
184             Accessor to the auth attribute.
185             Accepts an optional auth to be added to the auth array,
186             always return the current auth array.
187              
188             The Auth defines an authentication scheme to be used. Any of the current
189             authentication schemes used by the RIPE Database are allowed.
190              
191             =head2 B
192              
193             Accessor to the admin_c attribute.
194             Accepts an optional contact to be added to the admin_c array,
195             always return the current admin_c array.
196              
197             The NIC-handle of an on-site administrative contact. As more than one person
198             often fulfills a role function, there may be more than one admin_c listed.
199              
200             An administrative contact (admin_c) must be someone who is physically
201             located at the site of the network.
202              
203             =head2 B
204              
205             Accessor to the tech_c attribute.
206             Accepts an optional contact to be added to the tech_c array,
207             always return the current tech_c array.
208              
209             The NIC-handle of a technical contact. As more than one person often fulfills
210             a role function, there may be more than one tech_c listed.
211              
212             A technical contact (tech_c) must be a person responsible for the
213             day-to-day operation of the network, but does not need to be
214             physically located at the site of the network.
215              
216             =head2 B
217              
218             Accessor to the remarks attribute.
219             Accepts an optional remark to be added to the remarks array,
220             always return the current remarks array.
221              
222             Information about the object that cannot be stated in other attributes.
223              
224             =head2 B
225              
226             Accessor to the notify attribute.
227             Accepts an optional notify value to be added to the notify array,
228             always return the current notify array.
229              
230             The email address to which notifications of changes to this object should
231             be sent.
232              
233             =head2 B
234              
235             Accessor to the mnt_by attribute.
236             Accepts an optional mnt_by value to be added to the mnt_by array,
237             always return the current mnt_by array.
238              
239             Lists a registered Mntner used to authorize and authenticate changes to
240             this object.
241              
242             =head2 B
243              
244             Accessor to the changed attribute.
245             Accepts an optional changed value to be added to the changed array,
246             always return the current changed array.
247              
248             The email address of who last updated the database object and the date it
249             occurred.
250              
251             Every time a change is made to a database object, this attribute will show
252             the email address of the person who made those changes.
253             Please use the address format specified in RFC 822 - Standard for
254             the Format of ARPA Internet Text Message and provide the date
255             format using one of the following two formats: YYYYMMDD or YYMMDD.
256              
257             =head2 B
258              
259             Accessor to the source attribute.
260             Accepts an optional source, always return the current source.
261              
262             The database where the object is registered.
263              
264             =head2 B
265              
266             Accessor to the irt_nfy attribute.
267             Accepts an optional irt_nfy value to be added to the irt_nfy array,
268             always return the current irt_nfy array.
269              
270             The irt_nfy attribute specifies the email address to be notified when a
271             reference to the irt object is added or removed.
272              
273             =cut
274              
275             1;