File Coverage

blib/lib/Net/Whois/Object/RtrSet.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::RtrSet;
2              
3 1     1   81036 use strict;
  1         12  
  1         31  
4 1     1   5 use warnings;
  1         2  
  1         29  
5 1     1   5 use base qw/Net::Whois::Object/;
  1         2  
  1         601  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl RtrSet'
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             # rtr-set: [mandatory] [single] [primary/lookup key]
17             # descr: [optional] [multiple] [ ]
18             # members: [optional] [multiple] [ ]
19             # mp-members: [optional] [multiple] [ ]
20             # mbrs-by-ref: [optional] [multiple] [inverse key]
21             # remarks: [optional] [multiple] [ ]
22             # org: [optional] [multiple] [inverse key]
23             # tech-c: [mandatory] [multiple] [inverse key]
24             # admin-c: [mandatory] [multiple] [inverse key]
25             # notify: [optional] [multiple] [inverse key]
26             # mnt-by: [mandatory] [multiple] [inverse key]
27             # mnt-lower: [optional] [multiple] [inverse key]
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.99 (ANGUS)
33             #
34             #
35             __PACKAGE__->attributes( 'primary', [ 'rtr_set' ] );
36             __PACKAGE__->attributes( 'mandatory', [ 'rtr_set', 'tech_c', 'admin_c', 'mnt_by', 'source' ] );
37             __PACKAGE__->attributes( 'optional', [ 'descr', 'members', 'mp_members', 'mbrs_by_ref', 'remarks', 'org', 'notify', 'mnt_lower', 'created', 'last_modified' ] );
38             __PACKAGE__->attributes( 'single', [ 'rtr_set', 'created', 'last_modified', 'source' ] );
39             __PACKAGE__->attributes( 'multiple', [ 'descr', 'members', 'mp_members', 'mbrs_by_ref', 'remarks', 'org', 'tech_c', 'admin_c', 'notify', 'mnt_by', 'mnt_lower' ] );
40              
41             # End of auto-generated lines
42             #######################################################################################
43              
44             =head1 NAME
45              
46             Net::Whois::Object::RtrSet - an object representation of the RPSL RtrSet block
47              
48             =head1 DESCRIPTION
49              
50             A rtr-set object defines a set of routers. A set may be described by
51             the "members:" attribute, which is a list of inet-rtr names, IPv4
52             addresses or other rtr-set names. A set may also be populated by means
53             of the "mbrs-by-ref:" attribute, in which case it is represented by
54             inet-rtr objects.
55              
56             =head1 METHODS
57              
58             =head2 B
59              
60             Constructor for the Net::Whois::Object::RtrSet class
61              
62             =cut
63              
64             sub new {
65 1     1 1 5 my ( $class, @options ) = @_;
66              
67 1         3 my $self = bless {}, $class;
68 1         9 $self->_init(@options);
69              
70 1         3 return $self;
71             }
72              
73             =head2 B
74              
75             Accessor to the rtr_set attribute.
76             Accepts an optional rtr_set, always return the current rtr_set.
77              
78             =head2 B
79              
80             Accessor to the descr attribute.
81             Accepts an optional descr line to be added to the descr array,
82             always return the current descr array.
83              
84             =head2 B
85              
86             Accessor to the members attribute.
87             Accepts an optional member to be added to the members array,
88             always return the current members array.
89              
90             =head2 B
91              
92             Accessor to the mbrs_by_ref attribute.
93             Accepts an optional mbrs_by_ref value to be added to the mbrs_by_ref array,
94             always return the current mbrs_by_ref array.
95              
96             =head2 B
97              
98             Accessor to the remarks attribute.
99             Accepts an optional remark to be added to the remarks array,
100             always return the current remarks array.
101              
102             =head2 B
103              
104             Accessor to the org attribute.
105             Accepts an optional org, always return the current org.
106              
107             Points to an existing organisation object representing the entity that
108             holds the resource.
109              
110             The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
111             followed by a source specification. The first digit must not be "0".
112             Source specification starts with "-" followed by source name up to
113             9-character length.
114              
115             =head2 B
116              
117             Accessor to the tech_c attribute.
118             Accepts an optional contact to be added to the tech_c array,
119             always return the current tech_c array.
120              
121             =head2 B
122              
123             Accessor to the admin_c attribute.
124             Accepts an optional contact to be added to the admin_c array,
125             always return the current admin_c array.
126              
127             =head2 B
128              
129             Accessor to the notify attribute.
130             Accepts an optional notify value to be added to the notify array,
131             always return the current notify array.
132              
133             =head2 B
134              
135             Accessor to the mnt_by attribute.
136             Accepts an optional mnt_by value to be added to the mnt_by array,
137             always return the current mnt_by array.
138              
139             =head2 B
140              
141             Accessor to the changed attribute.
142             Accepts an optional changed value to be added to the changed array,
143             always return the current changed array.
144              
145             =head2 B
146              
147             Accessor to the source attribute.
148             Accepts an optional source, always return the current source.
149              
150             =head2 B
151              
152             Accessor to the mp_members attribute.
153             Accepts an optional mp_member to be added to the mp_members array,
154             always return the current mp_members array.
155              
156             This attribute performs the same function as the members attribute above.
157             The difference is that mp-members allows both IPv4 and IPv6 address families
158             to be specified.
159              
160             Explicitly lists IPv4 or IPv6 'members' of the rtr-set can be:
161              
162             * inet-rtr objects
163             * other rtr-set objects
164             * ipv4 address
165             * ipv6 address
166              
167             =cut
168              
169             1;