AASSAD / Net-Whois-RIPE-2.008001 / lib / Net / Whois / Object / PeeringSet / AFRINIC.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
—
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
—
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145

              
package Net::Whois::Object::PeeringSet::AFRINIC;
use strict;
use warnings;
use base qw/Net::Whois::Object/;
# whois -t peering-set -h whois.afrinic.net
# % This is the AfriNIC Whois server.
# 
# peering-set:    [mandatory]  [single]     [primary/look-up key]
# descr:          [mandatory]  [multiple]   [ ]
# peering:        [optional]   [multiple]   [ ]
# mp-peering:     [optional]   [multiple]   [ ]
# remarks:        [optional]   [multiple]   [ ]
# org:            [optional]   [multiple]   [inverse key]
# tech-c:         [mandatory]  [multiple]   [inverse key]
# admin-c:        [mandatory]  [multiple]   [inverse key]
# notify:         [optional]   [multiple]   [inverse key]
# mnt-by:         [mandatory]  [multiple]   [inverse key]
# mnt-lower:      [optional]   [multiple]   [inverse key]
# changed:        [mandatory]  [multiple]   [ ]
# source:         [mandatory]  [single]     [ ]
__PACKAGE__->attributes( 'primary', ['peering_set'] );
__PACKAGE__->attributes( 'mandatory', [ 'peering_set', 'descr', 'tech_c', 'admin_c', 'mnt_by', 'changed', 'source' ] );
__PACKAGE__->attributes( 'optional', [ 'peering', 'mp_peering', 'remarks', 'org', 'notify', 'mnt_lower' ] );
__PACKAGE__->attributes( 'single',    [ 'peering_set', 'source' ] );
__PACKAGE__->attributes( 'multiple',  [ 'descr', 'peering', 'mp_peering', 'remarks', 'org', 'tech_c', 'admin_c', 'notify', 'mnt_by', 'mnt_lower', 'changed' ] );
=head1 NAME
Net::Whois::Object::PeeringSet::AFRINIC - an object representation of the RPSL PeeringSet block
=head1 DESCRIPTION
A peering-set object defines a set of peerings that are listed in its
"peering:" attributes.  The "peering-set:" attribute defines the name
of the set.  It is an RPSL name that starts with "prng-".
=head1 METHODS
=head2 B<new( %options )>
Constructor for the Net::Whois::Object::PeeringSet::AFRINIC class
=cut
sub new {
    my ( $class, @options ) = @_;
    my $self = bless {}, $class;
    $self->_init(@options);
    return $self;
}
=head2 B<peering_set( [$peering_set] )>
Accessor to the peering_set attribute (the name of the filter set).
Accepts an optional peering_set, always return the current peering_set.
The peering_set must begin with 'PRNG-'.
=head2 B<descr( [$descr] )>
Accessor to the descr attribute.
Accepts an optional descr line to be added to the descr array,
always return the current descr array.
=head2 B<peering( [$peering] )>
Accessor to the peering attribute.
Accepts an optional peering value to be added to the peering array,
always return the current peering array.
=head2 B<remarks( [$remark] )>
Accessor to the remarks attribute.
Accepts an optional remark to be added to the remarks array,
always return the current remarks array.
=head2 B<org( [$org] )>
Accessor to the org attribute.
Accepts an optional org, always return the current org.
Points to an existing organisation object representing the entity that
holds the resource.
The 'ORG-' string followed by 2 to 4 characters, followed by up to 5 digits
followed by a source specification.  The first digit must not be "0".
Source specification starts with "-" followed by source name up to
9-character length.
=head2 B<tech_c( [$contact] )>
Accessor to the tech_c attribute.
Accepts an optional contact to be added to the tech_c array,
always return the current tech_c array.
=head2 B<admin_c( [$contact] )>
Accessor to the admin_c attribute.
Accepts an optional contact to be added to the admin_c array,
always return the current admin_c array.
=head2 B<notify( [$notify] )>
Accessor to the notify attribute.
Accepts an optional notify value to be added to the notify array,
always return the current notify array.
=head2 B<mnt_by( [$mnt_by] )>
Accessor to the mnt_by attribute.
Accepts an optional mnt_by value to be added to the mnt_by array,
        always return the current 'mnt_by' array.
=head2 B<changed( [$changed] )>
Accessor to the changed attribute.
Accepts an optional changed value to be added to the changed array,
always return the current changed array.
=head2 B<source( [$source] )>
Accessor to the source attribute.
Accepts an optional source, always return the current source.
=head2 B<mp_peering( [$mp_peering] )>
Accessor to the mp_peering attribute.
Accepts an optional mp_peering value to be added to the mp_peering array,
always return the current mp_peering array.
=head2 B<mnt_lower( [$mnt_lower] )>
Accessor to the mnt_lower attribute.
Accepts an optional mnt_lower value to be added to the mnt_lower array,
always return the current mnt_lower array.
=cut
1;