CPAN::Groonga

age WWW::StationJp::API;
use 5.008005;
use strict;
use warnings;
use URI;
use LWP::UserAgent;
use JSON;

our $VERSION = "0.01";

use constant BASE_URL => 'http://www.ekidata.jp/api';

use Mouse;

sub 

url = URI->new(BASE_URL."/p/".$pref->{prefcode}.".json");
 my $res = $self->response($url);
 $res = xml_parse($res->content);
 return JSON::decode_json($res); 
}

sub line{
 my($self,$line) = @_;
 my 

url = URI->new(BASE_URL."/l/".$line->{linecode}.".json");
 my $res = $self->response($url);
 $res = xml_parse($res->content);
 return JSON::decode_json($res); 
}

sub station{
 my($self,$station) = @_