File Coverage

blib/lib/Sort/DJB.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Sort::DJB;
2              
3 1     1   111941 use strict;
  1         1  
  1         30  
4 1     1   3 use warnings;
  1         4  
  1         46  
5 1     1   4 use Exporter 'import';
  1         1  
  1         21  
6 1     1   2 use XSLoader;
  1         1  
  1         120  
7              
8             our $VERSION = '0.2';
9              
10             our @EXPORT_OK = qw(
11             sort_int32 sort_int32down
12             sort_uint32 sort_uint32down
13             sort_int64 sort_int64down
14             sort_uint64 sort_uint64down
15             sort_float32 sort_float32down
16             sort_float64 sort_float64down
17             );
18              
19             our %EXPORT_TAGS = (
20             all => \@EXPORT_OK,
21             int32 => [qw(sort_int32 sort_int32down)],
22             uint32 => [qw(sort_uint32 sort_uint32down)],
23             int64 => [qw(sort_int64 sort_int64down)],
24             uint64 => [qw(sort_uint64 sort_uint64down)],
25             float32 => [qw(sort_float32 sort_float32down)],
26             float64 => [qw(sort_float64 sort_float64down)],
27             );
28              
29             XSLoader::load('Sort::DJB', $VERSION);
30              
31             1;
32              
33             __END__