File Coverage

blib/lib/SortKey/Num/similarity_jaccard.pm

Criterion	Covered	Total	%
statement	14	23	60.8
branch	0	4	0.0
condition			n/a
subroutine	5	8	62.5
pod	0	2	0.0
total	19	37	51.3

package SortKey::Num::similarity_jaccard;

use 5.010001;
use strict;
use warnings;
use Log::ger;

use Set::Similarity::Jaccard;

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

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

sub gen_keygen {
    my %args = @_;

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

    my $jaccard = Set::Similarity::Jaccard->new;

    sub {
        my $arg = @_ ? shift : $_;
        $ci ? $jaccard->similarity($lc_string, lc($arg)) : $jaccard->similarity($string, $arg);
    };
}

1;
# ABSTRACT: Jaccard coefficient of a string to a reference string, as sort key

__END__