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

20 lines
394 B
Perl
Raw Normal View History

2012-04-15 12:41:23 -07:00
package DDG::Goodie::Unidecode;
# ABSTRACT: return an ASCII version of the search query
use DDG::Goodie;
use Text::Unidecode;
triggers startend => "unidecode";
zci is_cached => 1;
zci answer_type => "convert_to_ascii";
2012-04-15 12:41:23 -07:00
handle remainder => sub {
my $u = unidecode $_;
# unidecode output sometimes contains trailing spaces
$u =~ s/\s+$//;
return $u;
};
1;