File Coverage

blib/lib/Comparer/from_sortkey.pm

Criterion	Covered	Total	%
statement	8	21	38.1
branch	0	10	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	11	39	28.2

package Comparer::from_sortkey;

use 5.010001;
use strict 'subs', 'vars';
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-24'; # DATE
our $DIST = 'Comparer-from_sortkey'; # DIST
our $VERSION = '0.001'; # VERSION

sub meta {
    return +{
        v => 1,
        args => {
            sortkey => {schema=>'perl::sortkey::modname_with_optional_args*', req=>1},
            reverse => {schema => 'bool*'},
            ci => {schema => 'bool*'},
        },
    };
}

sub gen_comparer {
    my %args = @_;

    my $sortkey = $args{sortkey} or die "Please specify sortkey";
    my $reverse = $args{reverse};
    my $ci = $args{ci};

    require Module::Load::Util;

    my ($mod, $args) = Module::Load::Util::_normalize_module_with_optional_args($sortkey);
    $mod = Module::Load::Util::_load_module({ns_prefix=>"SortKey"}, $mod);
    my $is_num = $mod =~ /\ASortKey::Num::/ ? 1:0;
    my $keygen = &{"$mod\::gen_keygen"}(@$args);

    sub {
        (
            $is_num ? ($keygen->($_[0]) <=> $keygen->($_[1])) :
            $args{ci} ? (lc($keygen->($_[0])) cmp lc($keygen->($_[1]))) : ($keygen->($_[0]) cmp $keygen->($_[1]))
        ) * ($args{reverse} ? -1 : 1)
    };
}

1;
# ABSTRACT: Compare keys generated by a SortKey:: module

__END__