Yet Another CPAN Grep

AnyEvent-SKKServ ( A/AK/AKIYM/AnyEvent-SKKServ-0.01.tar.gz, AKIYM, 2013; MetaCPAN )

AnyEvent-SKKServ/script/google-ime-skk.pl ( view source; MetaCPAN )

e AnyEvent;
use AnyEvent::HTTP;
use AnyEvent::SKKServ;
use Cache::Memory::Simple;
use Encode;
use JSON;
use URI;

use constant {
    SERVER_ERROR     => '0',
    SERVER_FOUND     => '1',
    SERVER_NO

che::Memory::Simple->new();
my $expire = 60 * 60 * 24;

my $enc = find_encoding('euc-jp');
my $json = JSON->new->utf8(1)->relaxed(1);

my $_uri = URI->new('http://www.google.com/transliterate');
sub _

 timeout => 1, sub {
                if ($_[1]->{Status} == 200) {
                    my $res = $json->decode($_[0]);
                    my @words;
                    for my $word (@{$res->[0][1]})