File Coverage

blib/lib/Sort/Key/LargeInt.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch			n/a
condition			n/a
subroutine	8	9	88.8
pod	0	1	0.0
total	32	35	91.4

package Sort::Key::LargeInt;

use strict;
use warnings;

BEGIN {
    our $VERSION = '0.01';
    require XSLoader;
    XSLoader::load('Sort::Key::LargeInt', $VERSION);
}

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( largeintkeysort
		     largeintkeysort_inplace
		     rlargeintkeysort
		     rlargeintkeysort_inplace
		     largeintsort
		     largeintsort_inplace
		     rlargeintsort
		     rlargeintsort_inplace
		     encode_largeint
		     encode_largeint_hex);

sub encode_largeint_hex {
    join " ", map sprintf("%02x", ord($_)), split //, encode_largeint(@_);
}

use Sort::Key::Register largeint => \&encode_largeint, 'str';

use Sort::Key::Maker largeintkeysort => 'largeint';
use Sort::Key::Maker rlargeintkeysort => '-largeint';
use Sort::Key::Maker largeintsort => \&encode_largeint, 'str';
use Sort::Key::Maker rlargeintsort => \&encode_largeint, '-str';

1;
__END__