File Coverage

blib/lib/SortKey/Num/similarity.pm

Criterion	Covered	Total	%
statement	11	20	55.0
branch	0	4	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	15	33	45.4

package SortKey::Num::similarity;

use 5.010001;
use strict;
use warnings;

use Text::Levenshtein::XS;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-05-15'; # DATE
our $DIST = 'SortKey-Num-similarity'; # DIST
our $VERSION = '0.002'; # VERSION

sub meta {
    return +{
        v => 1,
        args => {
            string => {schema=>'str*', req=>1},
            ci => {schema => 'bool*'},
        },
    };
}

sub gen_keygen {
    my %args = @_;

    my $reverse = $args{reverse};
    my $string = $args{string};
    my $lc_string = lc $string;
    my $ci = $args{ci};

    sub {
        my $arg = @_ ? shift : $_;
        $ci ? Text::Levenshtein::XS::distance($lc_string, lc($arg)) : Text::Levenshtein::XS::distance($string, $arg);
    };
}

1;
# ABSTRACT: Similarity to a reference string as sort key

__END__