package lib::util::Unaccent;
use strict;

sub process
{
    my $class = shift;
    my $data = shift;
    $data =~ s/[\xC0-\xC5]/A/g;
    $data =~ s/\xC6/AE/g;
    $data =~ s/\xC7/C/g;
    $data =~ s/[\xC8-\xCB]/E/g;
    $data =~ s/[\xCC-\xCF]/I/g;
    $data =~ s/\xD0/D/g;
    $data =~ s/\xD1/N/g;
    $data =~ s/[\xD2-\xD6]/O/g;
    $data =~ s/\xD8/O/g;
    $data =~ s/[\xD9-\xDC]/U/g;
    $data =~ s/\xDD/Y/g;
    $data =~ s/[\xE0-\xE5]/a/g;
    $data =~ s/\xE6/ae/g;
    $data =~ s/\xE7/c/g;
    $data =~ s/[\xE8-\xEB]/e/g;
    $data =~ s/[\xEC-\xEF]/i/g;
    $data =~ s/\xF0/d/g;
    $data =~ s/\xF1/n/g;
    $data =~ s/[\xF2-\xF6]/o/g;
    $data =~ s/\xF8/o/g;
    $data =~ s/[\xF9-\xFC]/u/g;
    $data =~ s/\xFD/y/g;
    $data =~ s/FF/y/g;
    return $data;
}


1;
