File Coverage

blib/lib/Net/Whois/Object/PeeringSet.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::PeeringSet;
2              
3 1     1   71667 use strict;
  1         13  
  1         28  
4 1     1   6 use warnings;
  1         1  
  1         27  
5 1     1   6 use base qw/Net::Whois::Object/;
  1         3  
  1         577  
6              
7             #######################################################################################
8             # The following lines where auto-generated by 'perl whois_to_attribute.pl PeeringSet'
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             # peering-set: [mandatory] [single] [primary/lookup key]
17             # descr: [mandatory] [multiple] [ ]
18             # peering: [optional] [multiple] [ ]
19             # mp-peering: [optional] [multiple] [ ]
20             # remarks: [optional] [multiple] [ ]
21             # org: [optional] [multiple] [inverse key]
22             # tech-c: [mandatory] [multiple] [inverse key]
23             # admin-c: [mandatory] [multiple] [inverse key]
24             # notify: [optional] [multiple] [inverse key]
25             # mnt-by: [mandatory] [multiple] [inverse key]
26             # mnt-lower: [optional] [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-1)
33             #
34             #
35             __PACKAGE__->attributes( 'primary', [ 'peering_set' ] );
36             __PACKAGE__->attributes( 'mandatory', [ 'peering_set', 'descr', 'tech_c', 'admin_c', 'mnt_by', 'changed', 'source' ] );
37             __PACKAGE__->attributes( 'optional', [ 'peering', 'mp_peering', 'remarks', 'org', 'notify', 'mnt_lower', 'created', 'last_modified' ] );
38             __PACKAGE__->attributes( 'single', [ 'peering_set', 'created', 'last_modified', 'source' ] );
39             __PACKAGE__->attributes( 'multiple', [ 'descr', 'peering', 'mp_peering', 'remarks', 'org', 'tech_c', 'admin_c', 'notify', 'mnt_by', 'mnt_lower', 'changed' ] );
40              
41             # End of auto-generated lines
42             #######################################################################################
43              
44             =head1 NAME
45              
46             Net::Whois::Object::PeeringSet - an object representation of the RPSL PeeringSet block
47              
48             =head1 DESCRIPTION
49              
50             A peering-set object defines a set of peerings that are listed in its
51             "peering:" attributes. The "peering-set:" attribute defines the name
52             of the set. It is an RPSL name that starts with "prng-".
53              
54             =head1 METHODS
55              
56             =head2 B
57              
58             Constructor for the Net::Whois::Object::PeeringSet class
59              
60             =cut
61              
62             sub new {
63 1     1 1 4 my ( $class, @options ) = @_;
64              
65 1         4 my $self = bless {}, $class;
66 1         8 $self->_init(@options);
67              
68 1         3 return $self;
69             }
70              
71             =head2 B
72              
73             Accessor to the peering_set attribute (the name of the filter set).
74             Accepts an optional peering_set, always return the current peering_set.
75              
76             The peering_set must begin with 'PRNG-'.
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 peering attribute.
87             Accepts an optional peering value to be added to the peering array,
88             always return the current peering array.
89              
90             =head2 B
91              
92             Accessor to the remarks attribute.
93             Accepts an optional remark to be added to the remarks array,
94             always return the current remarks array.
95              
96             =head2 B
97              
98             Accessor to the org attribute.
99             Accepts an optional org, always return the current org.
100              
101             Points to an existing organisation object representing the entity that
102             holds the resource.
103              
104             The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
105             followed by a source specification. The first digit must not be "0".
106             Source specification starts with "-" followed by source name up to
107             9-character length.
108              
109             =head2 B
110              
111             Accessor to the tech_c attribute.
112             Accepts an optional contact to be added to the tech_c array,
113             always return the current tech_c array.
114              
115             =head2 B
116              
117             Accessor to the admin_c attribute.
118             Accepts an optional contact to be added to the admin_c array,
119             always return the current admin_c array.
120              
121             =head2 B
122              
123             Accessor to the notify attribute.
124             Accepts an optional notify value to be added to the notify array,
125             always return the current notify array.
126              
127             =head2 B
128              
129             Accessor to the mnt_by attribute.
130             Accepts an optional mnt_by value to be added to the mnt_by array,
131             always return the current 'mnt_by' array.
132              
133             =head2 B
134              
135             Accessor to the changed attribute.
136             Accepts an optional changed value to be added to the changed array,
137             always return the current changed array.
138              
139             =head2 B
140              
141             Accessor to the source attribute.
142             Accepts an optional source, always return the current source.
143              
144             =head2 B
145              
146             Accessor to the mp_peering attribute.
147             Accepts an optional mp_peering value to be added to the mp_peering array,
148             always return the current mp_peering array.
149              
150             =head2 B
151              
152             Accessor to the mnt_lower attribute.
153             Accepts an optional mnt_lower value to be added to the mnt_lower array,
154             always return the current mnt_lower array.
155              
156             =cut
157              
158             1;