Yet Another CPAN Grep

Lingua-Guess ( B/BK/BKB/Lingua-Guess-0.03.tar.gz, BKB, 2021; MetaCPAN )

Lingua-Guess/lib/Lingua/Guess.pod ( view source; MetaCPAN )

File::Spec::Functions/catfile> is used in reading the training data files.

=item JSON::Parse

L<JSON::Parse/read_json> is used to read in configuration information.

=item Unicode::Normalize

L<Unico

Lingua-Guess ( B/BK/BKB/Lingua-Guess-0.03.tar.gz, BKB, 2021; MetaCPAN )

Lingua-Guess/lib/Lingua/Guess.pm ( view source; MetaCPAN )

c::Functions 'catfile';
use Unicode::Normalize qw/NFC/;
use Unicode::UCD 'charinfo';
use JSON::Parse 'read_json';

our $VERSION = '0.03';

# Maximum distance, used by __distance.

our $MAX = 300;

our

rmese Georgian Mongolian/;

my $dir = __FILE__;
$dir =~ s!\.pm$!!;

my $lang2codes = read_json ("$dir/lang.json");

sub make_ret
{
    my ($lang, $score) = @_;
    my %ret;
    $lang = lc $lang;
    m