File Coverage

blib/lib/Hatena/Star/Mobile.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	8	14	57.1
condition	6	13	46.1
subroutine	7	7	100.0
pod	0	1	0.0
total	70	84	83.3

package Hatena::Star::Mobile;
use strict;
use warnings;
use URI::Escape;
use LWP::UserAgent;
use HTTP::Request;
use JSON::Syck;

our $VERSION = '0.01';

my $add_template =
    '' .
    '';

sub get_star_entries {
    my $class = shift;
    my %args = @_;
    my $entries = $args{entries} or return;
    my $hatena_domain = $args{hatena_domain} || 'hatena.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;
    for my $e (@$entries) {
        next unless $e->{uri};
        $suri .= 'uri=' . URI::Escape::uri_escape($e->{uri}) . '&';
        $count++;
    }
    my $sentries = [];
    if ($count) {
        my $ua = LWP::UserAgent->new;
        my $req = HTTP::Request->new(GET => $suri);
        my $res = $ua->request($req);
        $res->is_success or return;
        my $data = JSON::Syck::Load($res->content);
        $sentries = $data->{entries};
    }
    for my $se (@$sentries) {
        next unless ($se && $se->{uri});
        my $html = sprintf(
            $add_template,
            $sbase, $args{sid} || '', $args{rks} || '',
            URI::Escape::uri_escape($se->{uri}),
            URI::Escape::uri_escape($args{location} || ''),
            $args{color} || 'de'
        );
        for my $s (@{$se->{stars}}) {
            if (ref $s eq 'HASH') {
                $html .= sprintf('',
                                 $sbase, $s->{name});
            } else {
                $html .= sprintf('%d',$s);
            }
        }
        $se->{star_html} = $html;
    }
    return $sentries;
}

1;
__END__