Yet Another CPAN Grep

App-SocialSKK ( K/KE/KENTARO/App-SocialSKK-0.02.tar.gz, KENTARO, 2009; MetaCPAN )

App-SocialSKK/lib/App/SocialSKK/Plugin/Wikipedia.pm ( view source; MetaCPAN )

::Plugin::Wikipedia;
use strict;
use warnings;
use URI;
use URI::QueryParam;
use URI::Escape;
use JSON::Syck;
use Jcode;
use Encode::JavaScript::UCS;
use base qw(App::SocialSKK::Plugin);

sub get_cand

   => $text);
    my $res = $self->ua->get($uri);
    if ($res->is_success) {
        my $array = JSON::Syck::Load($res->content);
        map {
            my $text = Encode::JavaScript::UCS::decode(