File Coverage

blib/lib/Sort/Key/Top.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Sort::Key::Top;
2              
3             our $VERSION = '0.08';
4              
5 1     1   37178 use strict;
  1         3  
  1         51  
6 1     1   6 use warnings;
  1         2  
  1         427  
7              
8             require Exporter;
9              
10             our @ISA = qw(Exporter);
11             our @EXPORT_OK = qw( top
12             ltop
13             ntop
14             itop
15             utop
16             rtop
17             rltop
18             rntop
19             ritop
20             rutop
21             keytop
22             lkeytop
23             nkeytop
24             ikeytop
25             ukeytop
26             rkeytop
27             rlkeytop
28             rnkeytop
29             rikeytop
30             rukeytop
31             part
32             lpart
33             npart
34             ipart
35             upart
36             rpart
37             rlpart
38             rnpart
39             ripart
40             rupart
41             keypart
42             lkeypart
43             nkeypart
44             ikeypart
45             ukeypart
46             rkeypart
47             rlkeypart
48             rnkeypart
49             rikeypart
50             rukeypart
51             partref
52             lpartref
53             npartref
54             ipartref
55             upartref
56             rpartref
57             rlpartref
58             rnpartref
59             ripartref
60             rupartref
61             keypartref
62             lkeypartref
63             nkeypartref
64             ikeypartref
65             ukeypartref
66             rkeypartref
67             rlkeypartref
68             rnkeypartref
69             rikeypartref
70             rukeypartref
71             topsort
72             ltopsort
73             ntopsort
74             itopsort
75             utopsort
76             rtopsort
77             rltopsort
78             rntopsort
79             ritopsort
80             rutopsort
81             keytopsort
82             lkeytopsort
83             nkeytopsort
84             ikeytopsort
85             ukeytopsort
86             rkeytopsort
87             rlkeytopsort
88             rnkeytopsort
89             rikeytopsort
90             rukeytopsort
91             atpos
92             latpos
93             natpos
94             iatpos
95             uatpos
96             ratpos
97             rlatpos
98             rnatpos
99             riatpos
100             ruatpos
101             keyatpos
102             lkeyatpos
103             nkeyatpos
104             ikeyatpos
105             ukeyatpos
106             rkeyatpos
107             rlkeyatpos
108             rnkeyatpos
109             rikeyatpos
110             rukeyatpos
111             head
112             lhead
113             nhead
114             ihead
115             uhead
116             rhead
117             rlhead
118             rnhead
119             rihead
120             ruhead
121             keyhead
122             lkeyhead
123             nkeyhead
124             ikeyhead
125             ukeyhead
126             rkeyhead
127             rlkeyhead
128             rnkeyhead
129             rikeyhead
130             rukeyhead
131             tail
132             ltail
133             ntail
134             itail
135             utail
136             rtail
137             rltail
138             rntail
139             ritail
140             rutail
141             keytail
142             lkeytail
143             nkeytail
144             ikeytail
145             ukeytail
146             rkeytail
147             rlkeytail
148             rnkeytail
149             rikeytail
150             rukeytail
151             );
152              
153             for ((@EXPORT_OK)) {
154             my $slot = $_;
155             $slot =~ s/key/slot/ and
156             push @EXPORT_OK, $slot;
157             }
158              
159             require XSLoader;
160             XSLoader::load('Sort::Key::Top', $VERSION);
161              
162             1;
163             __END__