File Coverage

blib/lib/ExtUtils/XSpp/Node/Access.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 2 2 100.0
total 14 20 70.0


line stmt bran cond sub pod time code
1             package ExtUtils::XSpp::Node::Access;
2 21     21   113 use strict;
  21         70  
  21         748  
3 21     21   113 use warnings;
  21         39  
  21         573  
4 21     21   110 use base 'ExtUtils::XSpp::Node';
  21         52  
  21         823  
5              
6             =head1 NAME
7              
8             ExtUtils::XSpp::Node::Access - Node representing an access specifier
9              
10             =head1 DESCRIPTION
11              
12             An L subclass representing an access (or method scope)
13             specifier such as C, C, C.
14              
15             =head1 METHODS
16              
17             =head2 new
18              
19             Creates a new C object.
20              
21             Named parameters: C must be the name of the access
22             specifier (see above).
23              
24             =cut
25              
26             sub init {
27 0     0 1   my $this = shift;
28 0           my %args = @_;
29              
30 0           $this->{ACCESS} = $args{access};
31             }
32              
33             =head1 ACCESSORS
34              
35             =head2 access
36              
37             Returns the name of the access specifier.
38              
39             =cut
40              
41 0     0 1   sub access { $_[0]->{ACCESS} }
42              
43             1;