zeroclickinfo-goodies/lib/DDG/Goodie/Unidecode.pm

22 lines
397 B
Perl
Raw Normal View History

2014-10-28 11:34:36 -07:00
package DDG::Goodie::Unidecode;
# ABSTRACT: return an ASCII version of the search query
use strict;
2014-10-28 11:34:36 -07:00
use DDG::Goodie;
use Text::Unidecode;
use utf8;
triggers startend => "unidecode";
zci is_cached => 1;
zci answer_type => "convert_to_ascii";
handle remainder => sub {
my $u = unidecode $_;
# unidecode output sometimes contains trailing spaces
$u =~ s/\s+$//;
return $u;
};
1;