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		72661	use strict;
	1			12
	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			541
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	5	my ( $class, @options ) = @_;
64
65	1			4	my $self = bless {}, $class;
66	1			9	$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;