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;