File Coverage

blib/lib/XAS/Lib/Set/Light.pm
Criterion Covered Total %
statement 3 5 60.0
branch n/a
condition n/a
subroutine 1 2 50.0
pod 1 1 100.0
total 5 8 62.5


line stmt bran cond sub pod time code
1             package XAS::Lib::Set::Light;
2              
3             our $VERSION = '0.01';
4              
5 1     1   903 use base 'Set::Light';
  1         3  
  1         138  
6              
7             # ----------------------------------------------------------------------
8             # Public Methods
9             # ----------------------------------------------------------------------
10              
11             sub items {
12 0     0 1   my ($x) = shift;
13              
14 0           return sort keys %$x;
15              
16             }
17              
18             # ----------------------------------------------------------------------
19             # Private Methods
20             # ----------------------------------------------------------------------
21              
22             1;
23              
24             __END__