File Coverage

blib/lib/Sort/BySimilarity.pm

Criterion	Covered	Total	%
statement	14	31	45.1
branch	0	8	0.0
condition	0	2	0.0
subroutine	5	8	62.5
pod	2	2	100.0
total	21	51	41.1

package Sort::BySimilarity;

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
use Text::Levenshtein::XS;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-19'; # DATE
our $DIST = 'Sort-BySimilarity'; # DIST
our $VERSION = '0.002'; # VERSION

our @EXPORT_OK = qw(
                       gen_sorter_by_similarity
                       sort_by_similarity
               );
#gen_cmp_by_similarity

sub gen_sorter_by_similarity {
    my ($is_reverse, $is_ci, $args) = @_;
    $args //= {};

    sub {
        my @items = @_;
        my @distances;
        if ($is_ci) {
            @distances = map { Text::Levenshtein::XS::distance($args->{string}, $_) } @items;
        } else {
            @distances = map { Text::Levenshtein::XS::distance(lc($args->{string}), (lc $_)) } @items;
        }

        map { $items[$_] } sort {
            ($is_reverse ? $distances[$b] <=> $distances[$a] : $distances[$a] <=> $distances[$b]) ||
                ($is_reverse ? $b <=> $a : $a <=> $b)
            } 0 .. $#items;
    };
}

sub sort_by_similarity {
    my $is_reverse = shift;
    my $is_ci = shift;
    my $args = shift;
    gen_sorter_by_similarity($is_reverse, $is_ci, $args)->(@_);
}

1;
# ABSTRACT: Sort by most similar to a reference string

__END__