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