File Coverage

blib/lib/WWW/Livedoor/Weather.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package WWW::Livedoor::Weather;
use 5.008005;
use strict;
use warnings;
use LWP::UserAgent;
use Carp;
use XML::Simple;
use JSON;
use Encode;
use Furl;

our $VERSION = "0.01";

use Class::Accessor::Lite::Lazy(
  new     => 1,
  ro_lazy => [qw/furl/]
);

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

use constant BASE_URI => 'http://weather.livedoor.com/forecast';
use constant XML_URI => BASE_URI.'/rss/primary_area.xml';
use constant JSON_URI => BASE_URI.'/webservice/json/v1';

sub get{
    my($self,$city) = @_;
    my $cityid = do{
      if($city =~ /\d+/){
          $city;
      }else{
          $self->_get_cityid($city);
      }
    };
    my $url = JSON_URI."?city=$cityid";
    return $self->_parse_forecast($url);
}

sub _parse_forecast{
    my ($self,$url) = @_;
    my $res = $self->furl->get($url);
    return $self->_forecastmap($res->content);
}

sub _forecastmap{
    my($self,$json) = @_;
    my $ref;
    eval{$ref = JSON::decode_json($json)};
    croak('failed reading weather information'.$@) if $@;
    return $ref;
}

sub _get_cityid{
    my($self,$cityname) = @_;
    eval{$cityname = Encode::decode_utf8($cityname)};
    if($@){
      croak("cannot decode:$cityname".$@);
    }
    my $response = $self->furl->get(XML_URI);
    my $content = $response->content;
    $self->{citymap} = $self->_parse_citymap($content);
    return $self->{citymap}->{$cityname};
}

sub _parse_citymap{
    my($self,$content) = @_;
    my $ref = eval{
        local $XML::Simple::PREFERED_PARSER = 'XML::Parser';
        XMLin($content,ForceArray => [qw/area city/]);
    };
    if($@){
        croak('Oh! failed reading forecastmap:'.$@);
    }
    my %city;
    foreach my $area(@{$ref->{channel}->{'ldWeather:source'}->{pref}}){
        $city{$area->{city}->{$_}->{title}} = $_ for keys %{$area->{city}};
    }
    return \%city;
}

1;


__END__