File Coverage

blib/lib/Sorter/from_comparer.pm

Criterion	Covered	Total	%
statement	8	20	40.0
branch	0	4	0.0
condition			n/a
subroutine	3	6	50.0
pod	0	2	0.0
total	11	32	34.3

package Sorter::from_comparer;

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

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

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

sub gen_sorter {
    my %args = @_;

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

    require Module::Load::Util;

    my ($mod, $args) = Module::Load::Util::_normalize_module_with_optional_args($comparer);
    $mod = Module::Load::Util::_load_module({ns_prefix=>"Comparer"}, $mod);
    my $cmp = &{"$mod\::gen_comparer"}(@$args);

    sub {
        sort { $reverse ? $cmp->($b,$a) : $cmp->($a,$b) } @_;
    };
}

1;
# ABSTRACT: Sort by comparer generated by a Comparer:: module

__END__