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