File Coverage

blib/lib/Sort/Key/OID.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::OID;

use strict;
use warnings;

BEGIN {
    our $VERSION = '0.05';

    require XSLoader;
    XSLoader::load('Sort::Key::OID', $VERSION);
}

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( oidkeysort
                     oidkeysort_inplace
                     roidkeysort
                     roidkeysort_inplace
                     oidsort
                     oidsort_inplace
                     roidsort
                     roidsort_inplace
                     encode_oid
                     encode_oid_hex);

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

use Sort::Key::Register oid => \&encode_oid, 'str';

use Sort::Key::Maker oidkeysort => 'oid';
use Sort::Key::Maker roidkeysort => '-oid';
use Sort::Key::Maker oidsort => \&encode_oid, 'str';
use Sort::Key::Maker roidsort => \&encode_oid, '-str';

1;

__END__