File Coverage

blib/lib/Net/Whois/Object/Domain.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 2 2 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Net::Whois::Object::Domain;
2              
3 1     1   84126 use strict;
  1         13  
  1         31  
4 1     1   5 use warnings;
  1         3  
  1         33  
5 1     1   9 use base qw/Net::Whois::Object/;
  1         3  
  1         675  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl Domain'
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             # domain: [mandatory] [single] [primary/lookup key]
17             # descr: [optional] [multiple] [ ]
18             # org: [optional] [multiple] [inverse key]
19             # admin-c: [mandatory] [multiple] [inverse key]
20             # tech-c: [mandatory] [multiple] [inverse key]
21             # zone-c: [mandatory] [multiple] [inverse key]
22             # nserver: [mandatory] [multiple] [inverse key]
23             # ds-rdata: [optional] [multiple] [inverse key]
24             # remarks: [optional] [multiple] [ ]
25             # notify: [optional] [multiple] [inverse key]
26             # mnt-by: [mandatory] [multiple] [inverse key]
27             # created: [generated] [single] [ ]
28             # last-modified: [generated] [single] [ ]
29             # source: [mandatory] [single] [ ]
30             #
31             # % This query was served by the RIPE Database Query Service version 1.99 (WAGYU)
32             #
33             #
34             __PACKAGE__->attributes( 'primary', [ 'domain' ] );
35             __PACKAGE__->attributes( 'mandatory', [ 'domain', 'admin_c', 'tech_c', 'zone_c', 'nserver', 'mnt_by', 'source' ] );
36             __PACKAGE__->attributes( 'optional', [ 'descr', 'org', 'ds_rdata', 'remarks', 'notify', 'created', 'last_modified' ] );
37             __PACKAGE__->attributes( 'single', [ 'domain', 'created', 'last_modified', 'source' ] );
38             __PACKAGE__->attributes( 'multiple', [ 'descr', 'org', 'admin_c', 'tech_c', 'zone_c', 'nserver', 'ds_rdata', 'remarks', 'notify', 'mnt_by' ] );
39              
40             # End of auto-generated lines
41             #######################################################################################
42              
43             =head1 NAME
44              
45             Net::Whois::Object::Domain - an object representation of a RPSL Domain block
46              
47             =head1 DESCRIPTION
48              
49             The domain object represents Top Level Domain (TLD) and other domain
50             registrations. It is also used for Reverse Delegations. The domain
51             name is written in fully qualified format, without a trailing " . "
52              
53             =head1 METHODS
54              
55             =head2 new ( @options )
56              
57             Constructor for the Net::Whois::Object::Domain class
58              
59             =cut
60              
61             sub new {
62 1     1 1 4 my ( $class, @options ) = @_;
63              
64 1         4 my $self = bless {}, $class;
65 1         9 $self->_init(@options);
66              
67 1         3 return $self;
68             }
69              
70             =head2 B
71              
72             Accessor to the domain attribute.
73             Accepts an optional domain, always return the current domain.
74              
75             The domain name in fully qualified format, without a trailing dot. If a
76             trailing dot is included it will be removed.
77              
78             =cut
79              
80             sub domain {
81 5     5 1 13 my ( $self, $domain ) = @_;
82              
83             # Enforce the format
84 5 100       15 $domain =~ s/\.$// if $domain;
85              
86 5         27 return $self->_single_attribute_setget( 'domain', $domain );
87             }
88              
89             =head2 B
90              
91             Accessor to the descr attribute.
92             Accepts an optional descr line to be added to the descr array,
93             always return the current descr array.
94              
95             The name of the organization responsible for the reverse delegation. Or can
96             describe the use of the IP range described in the domain object.
97              
98             =head2 B
99              
100             Accessor to the org attribute.
101             Accepts an optional org value to be added to the org array,
102             always return the current org array.
103              
104             The organisation responsible for this domain.
105              
106             =head2 B
107              
108             Accessor to the admin_c attribute.
109             Accepts an optional contact to be added to the admin_c array,
110             always return the current admin_c array.
111              
112             The NIC-handle of an on-site contact 'person' object. As more than one person
113             often fulfills a role function, there may be more than one admin_c listed.
114              
115             An administrative contact (admin_c) must be someone who is physically
116             located at the site of the network.
117              
118             =head2 B
119              
120             Accessor to the tech_c attribute.
121             Accepts an optional contact to be added to the tech_c array,
122             always return the current tech_c array.
123              
124             The NIC-handle of a technical contact 'person' or 'role' object. As more than
125             one person often fulfills a role function, there may be more than one tech_c
126             listed.
127              
128             A technical contact (tech_c) must be a person responsible for the
129             day-to-day operation of the network, but does not need to be
130             physically located at the site of the network.
131              
132             =head2 B
133              
134             Accessor to the zone_c attribute.
135             Accepts an optional contact to be added to the zone_c array,
136             always return the current zone_c array.
137              
138             The NIC-handle of a 'person' or 'role' object with authority over a zone.
139              
140             =head2 B
141              
142             Accessor to the nserver attribute.
143             Accepts an optional server to be added to the nserver array,
144             always return the current nserver array.
145              
146             A list of nameservers for a domain object. A minimum of one nameserver is
147             mandatory.
148              
149             =head2 B
150              
151             Accessor to the ds_rdata attribute.
152             Accepts an optional server to be added to the ds_rdata array,
153             always return the current ds_rdata array.
154              
155             The ds_rdata attribute holds information about a signed delegation record
156             for DNSSEC (short for DNS Security Extensions)
157              
158             =head2 B
159              
160             Accessor to the sub_dom attribute.
161             Accepts an optional dom to be added to the sub_dom array,
162             always return the current sub_dom array.
163              
164             The sub_dom attribute specifies a list of sub-domains of a domain. Domain
165             names are relative to the domain represented by the domain object that
166             contains this attribute
167              
168             =head2 B
169              
170             Accessor to the dom_net attribute.
171             Accepts an optional dom_net value to be added to the dom_net array,
172             always return the current dom_net array.
173              
174             The dom_net attribute contains a list of IP networks in a domain.
175              
176             =head2 B
177              
178             Accessor to the remarks attribute.
179             Accepts an optional remark to be added to the remarks array,
180             always return the current remarks array.
181              
182             General remarks. May include a URL or email address.
183              
184             =head2 B
185              
186             Accessor to the notify attribute.
187             Accepts an optional notify value to be added to the notify array,
188             always return the current notify array.
189              
190             The email address to which notifications of changes to this object should be
191             sent.
192              
193             =head2 B
194              
195             Accessor to the mnt_by attribute.
196             Accepts an optional mnt_by value to be added to the mnt_by array,
197             always return the current mnt_by array.
198              
199             Lists a registered 'mntner' used to authorize and authenticate changes to
200             this object.
201              
202             =head2 B
203              
204             Accessor to the mnt_lower attribute.
205             Accepts an optional mnt_lower value to be added to the mnt_lower array,
206             always return the current mnt_lower array.
207              
208             The identifier of a registered mntner object used to authorize the creation of
209             reverse domain objects more specific than the reverse domain specified by this
210             object.
211              
212             =head2 B
213              
214             Accessor to the refer attribute.
215             Accepts an optional refer, always return the current refer.
216              
217             The refer attribute is used to refer a query to another authorative
218             database. See the "RIPE Database Query Reference Manual" for an
219             explanation of its use. This will be redundant when forward domains are
220             removed and may be deprecated.
221              
222             =head2 B
223              
224             Accessor to the changed attribute.
225             Accepts an optional changed value to be added to the changed array,
226             always return the current changed array.
227              
228             The email address of who last updated the database object and the date it
229             occurred.
230              
231             Every time a change is made to a database object, this attribute will show
232             the email address of the person who made those changes.
233             Please use the address format specified in RFC 822 - Standard for
234             the Format of ARPA Internet Text Message and provide the date
235             format using one of the following two formats: YYYYMMDD or YYMMDD.
236              
237             =head2 B
238              
239             Accessor to the source attribute.
240             Accepts an optional source, always return the current source.
241              
242             The database where the object is registered.
243              
244             =cut
245              
246             1;