File Coverage

blib/lib/WWW/Jugem/API.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	0	1	0.0
total	42	43	97.6

package 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/';

has 'date' => (is => 'rw',isa => 'Str');

has furl => (
  is => 'rw',
 isa => 'Furl',
 lazy_build => 1
);

sub _build_furl{
 my $self = shift;
 return Furl->new(
    agent => 'WWW::Jugem::API(Perl)',
    timeout => 20,
 );
}

my %star_chart = (
   '牡羊座' => 0,
   '牡牛座' => 1,
   '双子座' => 2,
   '蟹座'   => 3,
   '獅子座' => 4,
   '乙女座' => 5,
   '天秤座' => 6,
   '蠍座'   => 7,
   '射手座' => 8,
   '山羊座' => 9,
   '水瓶座' => 10,
   '魚座'   => 11
);

sub fetch{
 my ($self,$star) = @_;
 my $date = $self->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;


__END__