File Coverage

blib/lib/Sort/Key/Domain.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	32	32	100.0

package Sort::Key::Domain;

use strict;
use warnings;

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

require Exporter;

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( domainkeysort
                     domainkeysort_inplace
                     rdomainkeysort
                     rdomainkeysort_inplace
                     domainsort
                     domainsort_inplace
                     rdomainsort
                     rdomainsort_inplace
                     mkkey_domain );

use Sort::Key::Register domain => \&mkkey_domain, 'str';

use Sort::Key::Maker domainkeysort => 'domain';
use Sort::Key::Maker rdomainkeysort => '-domain';
use Sort::Key::Maker domainsort => \&mkkey_domain, 'str';
use Sort::Key::Maker rdomainsort => \&mkkey_domain, '-str';

1;

__END__