Yet Another CPAN Grep

Hatena-Star-Mobile ( J/JK/JKONDO/Hatena-Star-Mobile-0.01.tar.gz, JKONDO, 2008; MetaCPAN )

Hatena-Star-Mobile/lib/Hatena/Star/Mobile.pm ( view source; MetaCPAN )

ar::Mobile;
use strict;
use warnings;
use URI::Escape;
use LWP::UserAgent;
use HTTP::Request;
use JSON::Syck;

our $VERSION = '0.01';

my $add_template =
    '<a href="%sstar.add?sid=%s&rks=%s&uri=%s&

a.com';
    my $sbase = sprintf('http://s.%s/', $hatena_domain);
    my $suri = $sbase . 'entries.json?';
    if ($args{sid}) {
        $suri .= sprintf('sid=%s&', $args{sid});
    }
    my $count = 0

ri);
        my $res = $ua->request($req);
        $res->is_success or return;
        my $data = JSON::Syck::Load($res->content);
        $sentries = $data->{entries};
    }
    for my $se (@$sentrie