File Coverage

blib/lib/Net/Whois/Object/RouteSet.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::RouteSet;
2              
3 1     1   85969 use strict;
  1         13  
  1         33  
4 1     1   5 use warnings;
  1         2  
  1         39  
5 1     1   6 use base qw/Net::Whois::Object/;
  1         2  
  1         674  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl RouteSet'
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             # route-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 (BLAARKOP)
33             #
34             #
35             __PACKAGE__->attributes( 'primary', [ 'route_set' ] );
36             __PACKAGE__->attributes( 'mandatory', [ 'route_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', [ 'route_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::RouteSet - an object representation of the RPSL RouteSet block
47              
48             =head1 DESCRIPTION
49              
50             A route-set object defines a set of routes that can be represented by
51             route objects or by address prefixes. In the first case, the set is
52             populated by means of the "mbrs-by-ref:" attribute, in the latter, the
53             members of the set are explicitly listed in the "members:"
54             attribute. The "members:" attribute is a list of address prefixes or
55             other route-set names. Note that the route-set class is a set of
56             route prefixes, not of database route objects.
57              
58             =head1 METHODS
59              
60             =head2 B
61              
62             Constructor for the Net::Whois::Object::RouteSet class
63              
64             =cut
65              
66             sub new {
67 1     1 1 5 my ( $class, @options ) = @_;
68              
69 1         4 my $self = bless {}, $class;
70 1         11 $self->_init(@options);
71              
72              
73 1         4 return $self;
74             }
75              
76             =head2 B
77              
78             Accessor to the route_set attribute.
79             Accepts an optional route_set, always return the current route_set.
80              
81             =head2 B
82              
83             Accessor to the descr attribute.
84             Accepts an optional descr line to be added to the descr array,
85             always return the current descr array.
86              
87             =head2 B
88              
89             Accessor to the members attribute.
90             Accepts an optional members value to be added to the members array,
91             always return the current members array.
92              
93             =head2 B
94              
95             Accessor to the mbrs_by_ref attribute.
96             Accepts an optional mbrs_by_ref to be added to the mbrs_by_ref array,
97             always return the current 'mbrs_by_ref' array.
98              
99             =head2 B
100              
101             Accessor to the remarks attribute.
102             Accepts an optional remark to be added to the remarks array,
103             always return the current remarks array.
104              
105             =head2 B
106              
107             Accessor to the org attribute.
108             Accepts an optional org, always return the current org.
109              
110             Points to an existing organisation object representing the entity that
111             holds the resource.
112              
113             The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
114             followed by a source specification. The first digit must not be "0".
115             Source specification starts with "-" followed by source name up to
116             9-character length.
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             =head2 B
125              
126             Accessor to the admin_c attribute.
127             Accepts an optional contact to be added to the admin_c array,
128             always return the current admin_c array.
129              
130             =head2 B
131              
132             Accessor to the notify attribute.
133             Accepts an optional notify value to be added to the notify array,
134             always return the current notify array.
135              
136             =head2 B
137              
138             Accessor to the mnt_by attribute.
139             Accepts an optional mnt_by value to be added to the mnt_by array,
140             always return the current mnt_by array.
141              
142             =head2 B
143              
144             Accessor to the changed attribute.
145             Accepts an optional changed value to be added to the changed array,
146             always return the current changed array.
147              
148             =head2 B
149              
150             Accessor to the source attribute.
151             Accepts an optional source, always return the current source.
152              
153             =head2 B
154              
155             Accessor to the mnt_lower attribute.
156             Accepts an optional mnt_lower value to be added to the mnt_lower array,
157             always return the current mnt_lower array.
158              
159             =head2 B
160              
161             Accessor to the mp_members attribute.
162             Accepts an optional mp_member to be added to the mp_members array,
163             always return the current mp_members array.
164              
165             =cut
166              
167             1;