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