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	sub	pod	time	code
1					package Net::Whois::Object::PeeringSet;
2
3	1	1		77598	use strict;
	1			11
	1			30
4	1	1		5	use warnings;
	1			2
	1			27
5	1	1		5	use base qw/Net::Whois::Object/;
	1			2
	1			610
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: [optional] [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					# created: [generated] [single] [ ]
28					# last-modified: [generated] [single] [ ]
29					# source: [mandatory] [single] [ ]
30					#
31					# % This query was served by the RIPE Database Query Service version 1.99 (WAGYU)
32					#
33					#
34					__PACKAGE__->attributes( 'primary', [ 'peering_set' ] );
35					__PACKAGE__->attributes( 'mandatory', [ 'peering_set', 'tech_c', 'admin_c', 'mnt_by', 'source' ] );
36					__PACKAGE__->attributes( 'optional', [ 'descr', 'peering', 'mp_peering', 'remarks', 'org', 'notify', 'mnt_lower', 'created', 'last_modified' ] );
37					__PACKAGE__->attributes( 'single', [ 'peering_set', 'created', 'last_modified', 'source' ] );
38					__PACKAGE__->attributes( 'multiple', [ 'descr', 'peering', 'mp_peering', 'remarks', 'org', 'tech_c', 'admin_c', 'notify', 'mnt_by', 'mnt_lower' ] );
39
40					# End of auto-generated lines
41					#######################################################################################
42
43					=head1 NAME
44
45					Net::Whois::Object::PeeringSet - an object representation of the RPSL PeeringSet block
46
47					=head1 DESCRIPTION
48
49					A peering-set object defines a set of peerings that are listed in its
50					"peering:" attributes. The "peering-set:" attribute defines the name
51					of the set. It is an RPSL name that starts with "prng-".
52
53					=head1 METHODS
54
55					=head2 B
56
57					Constructor for the Net::Whois::Object::PeeringSet class
58
59					=cut
60
61					sub new {
62	1	1	1	5	my ( $class, @options ) = @_;
63
64	1			4	my $self = bless {}, $class;
65	1			8	$self->_init(@options);
66
67	1			3	return $self;
68					}
69
70					=head2 B
71
72					Accessor to the peering_set attribute (the name of the filter set).
73					Accepts an optional peering_set, always return the current peering_set.
74
75					The peering_set must begin with 'PRNG-'.
76
77					=head2 B
78
79					Accessor to the descr attribute.
80					Accepts an optional descr line to be added to the descr array,
81					always return the current descr array.
82
83					=head2 B
84
85					Accessor to the peering attribute.
86					Accepts an optional peering value to be added to the peering array,
87					always return the current peering array.
88
89					=head2 B
90
91					Accessor to the remarks attribute.
92					Accepts an optional remark to be added to the remarks array,
93					always return the current remarks array.
94
95					=head2 B
96
97					Accessor to the org attribute.
98					Accepts an optional org, always return the current org.
99
100					Points to an existing organisation object representing the entity that
101					holds the resource.
102
103					The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
104					followed by a source specification. The first digit must not be "0".
105					Source specification starts with "-" followed by source name up to
106					9-character length.
107
108					=head2 B
109
110					Accessor to the tech_c attribute.
111					Accepts an optional contact to be added to the tech_c array,
112					always return the current tech_c array.
113
114					=head2 B
115
116					Accessor to the admin_c attribute.
117					Accepts an optional contact to be added to the admin_c array,
118					always return the current admin_c array.
119
120					=head2 B
121
122					Accessor to the notify attribute.
123					Accepts an optional notify value to be added to the notify array,
124					always return the current notify array.
125
126					=head2 B
127
128					Accessor to the mnt_by attribute.
129					Accepts an optional mnt_by value to be added to the mnt_by array,
130					always return the current 'mnt_by' array.
131
132					=head2 B
133
134					Accessor to the changed attribute.
135					Accepts an optional changed value to be added to the changed array,
136					always return the current changed array.
137
138					=head2 B
139
140					Accessor to the source attribute.
141					Accepts an optional source, always return the current source.
142
143					=head2 B
144
145					Accessor to the mp_peering attribute.
146					Accepts an optional mp_peering value to be added to the mp_peering array,
147					always return the current mp_peering array.
148
149					=head2 B
150
151					Accessor to the mnt_lower attribute.
152					Accepts an optional mnt_lower value to be added to the mnt_lower array,
153					always return the current mnt_lower array.
154
155					=cut
156
157					1;