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
|
package ExtUtils::XSpp::Node::Access;
use strict;
use warnings;
use base 'ExtUtils::XSpp::Node';
=head1 NAME
ExtUtils::XSpp::Node::Access - Node representing an access specifier
=head1 DESCRIPTION
An L<ExtUtils::XSpp::Node> subclass representing an access (or method scope)
specifier such as C<public>, C<protected>, C<private>.
=head1 METHODS
=head2 new
Creates a new C<ExtUtils::XSpp::Node::Access> object.
Named parameters: C<access> must be the name of the access
specifier (see above).
=cut
sub init {
my $this = shift;
my %args = @_;
$this->{ACCESS} = $args{access};
}
=head1 ACCESSORS
=head2 access
Returns the name of the access specifier.
=cut
sub access { $_[0]->{ACCESS} }
1;
|
