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   1324 use base 'Set::Light';
  1         1  
  1         112  
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__
25              
26             =head1 NAME
27              
28             XAS::Lib::Set::Light - An extennsion to Set::Light
29              
30             =head1 SYNOPSIS
31              
32             use XAS::Lib::Set::Light;
33              
34             my $set = XAS::Lib::Set::Light->new();
35              
36             $set->insert("item');
37             my @items = $set->items();
38              
39             =head1 DESCRIPTION
40              
41             This module is an extension of L<Set::Light|https://metacpan.org/pod/Set::Light>.
42              
43             =head1 METHODS
44              
45             =head2 items
46              
47             This method returns all of the elements of the set in sorted order.
48              
49             =head1 SEE ALSO
50              
51             =over 4
52              
53             =item L<Set::Light|https://metacpan.org/pod/Set::Light>
54              
55             =item L<XAS|XAS>
56              
57             =back
58              
59             =head1 AUTHOR
60              
61             Kevin L. Esteb, E<lt>kevin@kesteb.usE<gt>
62              
63             =head1 COPYRIGHT AND LICENSE
64              
65             Copyright (c) 2015 Kevin L. Esteb
66              
67             This is free software; you can redistribute it and/or modify it under
68             the terms of the Artistic License 2.0. For details, see the full text
69             of the license at http://www.perlfoundation.org/artistic_license_2_0.
70              
71             =cut