Yet Another CPAN Grep

WWW-Hatena-WanWanWorld ( K/KO/KOKOGIKO/WWW-Hatena-WanWanWorld-0.02.tar.gz, KOKOGIKO, 2006; MetaCPAN )

WWW-Hatena-WanWanWorld/lib/WWW/Hatena/WanWanWorld.pm ( view source; MetaCPAN )

 qw(WWW::Hatena::Scraper WWW::Hatena::WanWanWorld::position);
use Digest::MD5 qw(md5_base64);
use JSON;
use Location::GeoTool;
use Encode;

Encode::Alias::define_alias( qr/^euc$/i => '"euc-jp"' );

su

craper::_getset; }
sub charcode { &WWW::Hatena::Scraper::_getset; }
sub json {
    my $self = shift;
    $self->{'json'} ||= JSON->new(unmapping => 1, quotapos => 1 , barekey => 1,utf8 => $self->charc

}&maxY=${maxY}&_=";
    my $json = $self->json->jsonToObj($self->get_content('http://world.hatelabo.jp/position',$content));
    for my $dog (map { $json->{$_} } keys %$json) {
        my $voice = $do