Yet Another CPAN Grep

WWW-Jugem-API ( S/SU/SUENAGA/WWW-Jugem-API-0.01.tar.gz, SUENAGA, 2014; MetaCPAN )

WWW-Jugem-API/lib/WWW/Jugem/API.pm ( view source; MetaCPAN )

ckage WWW::Jugem::API;
use 5.008005;
use strict;
use warnings;
use utf8;
use Mouse;
use Furl;
use JSON;

our $VERSION = "0.01";

use constant BASE_URL => 'http://api.jugemkey.jp/api/horoscope/free/';

lf->date;
 my $url = BASE_URL.$date;
 my $response = $self->furl->get($url);
 my $content = JSON::decode_json($response->content);
 return $content->{horoscope}->{$date}->[$star_chart{$star}];
}

1;