-
Notifications
You must be signed in to change notification settings - Fork 4
/
FilterSet.pm
188 lines (133 loc) · 4.36 KB
/
FilterSet.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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
package Net::Whois::Object::FilterSet;
use base qw/Net::Whois::Object/;
# From ripe-223
#
# filter-set: [mandatory] [single] [primary/look-up key]
# descr: [mandatory] [multiple] [ ]
# filter: [mandatory] [single] [ ]
# remarks: [optional] [multiple] [ ]
# tech-c: [mandatory] [multiple] [inverse key]
# admin-c: [mandatory] [multiple] [inverse key]
# notify: [optional] [multiple] [inverse key]
# mnt-by: [mandatory] [multiple] [inverse key]
# changed: [mandatory] [multiple] [ ]
# source: [mandatory] [single] [ ]
=head1 NAME
Net::Whois::Object::FilterSet - an object representation of a RPSL FilterSet block
=head1 DESCRIPTION
A filter-set object defines a set of routes that are matched by its
filter. The "filter-set:" attribute defines the name of the filter.
It is an RPSL name that starts with "fltr-". The "filter:" attribute
defines the set's policy filter. A policy filter is a logical
expression which when applied to a set of routes returns a subset of
these routes.
=head1 METHODS
=head2 new ( %options )
Constructor for the Net::Whois::Object::FilterSet class
=cut
sub new {
my ( $class, %options ) = @_;
my $self = bless {}, $class;
for my $key ( keys %options ) {
$self->$key( $options{$key} );
}
return $self;
}
=head2 B<filter_set( [$filter_set] )>
Accessor to the filter_set attribute.
Accepts an optional filter_set value, always return the current filter_set value.
=cut
sub filter_set {
my ( $self, $filter_set ) = @_;
$self->{filter_set} = $filter_set if defined $filter_set;
return $self->{filter_set};
}
=head2 B<descr( [$descr] )>
Accessor to the descr attribute.
Accepts an optional descr value to be added to the descr array,
always return the current descr array.
=cut
sub descr {
my ( $self, $descr ) = @_;
push @{ $self->{descr} }, $descr if defined $descr;
return \@{ $self->{descr} };
}
=head2 B<filter( [$filter] )>
Accessor to the filter attribute.
Accepts an optional filter value, always return the current filter.
=cut
sub filter {
my ( $self, $filter ) = @_;
$self->{filter} = $filter if defined $filter;
return $self->{filter};
}
=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.
=cut
sub remarks {
my ( $self, $remark ) = @_;
push @{ $self->{remarks} }, $remark if defined $remark;
return \@{ $self->{remarks} };
}
=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.
=cut
sub tech_c {
my ( $self, $contact ) = @_;
push @{ $self->{tech_c} }, $contact if defined $contact;
return \@{ $self->{tech_c} };
}
=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.
=cut
sub admin_c {
my ( $self, $contact ) = @_;
push @{ $self->{admin_c} }, $contact if defined $contact;
return \@{ $self->{admin_c} };
}
=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.
=cut
sub notify {
my ( $self, $notify ) = @_;
push @{ $self->{notify} }, $notify if defined $notify;
return \@{ $self->{notify} };
}
=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.
=cut
sub mnt_by {
my ( $self, $mnt_by ) = @_;
push @{ $self->{mnt_by} }, $mnt_by if defined $mnt_by;
return \@{ $self->{mnt_by} };
}
=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.
=cut
sub changed {
my ( $self, $changed ) = @_;
push @{ $self->{changed} }, $changed if defined $changed;
return \@{ $self->{changed} };
}
=head2 B<source( [$source] )>
Accessor to the source attribute.
Accepts an optional source, always return the current source.
=cut
sub source {
my ( $self, $source ) = @_;
$self->{source} = $source if defined $source;
return $self->{source};
}
1;