28 lines
433 B
Perl
28 lines
433 B
Perl
package BurguillosInfo::IndexUtils;
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use feature 'signatures';
|
|
|
|
use Unicode::Normalize qw/NFKD/;
|
|
|
|
use Moo;
|
|
|
|
sub normalize($self, $text) {
|
|
return undef if !defined $text;
|
|
my $decomposed = NFKD( $text );
|
|
$decomposed =~ s/\p{NonspacingMark}//g;
|
|
$decomposed =~ s/s\b//g;
|
|
$decomposed =~ s/a\b/o/g;
|
|
return $decomposed;
|
|
}
|
|
|
|
sub n(@args) {
|
|
normalize(@args);
|
|
}
|
|
1;
|