File Coverage

blib/lib/WWW/StationJp/API.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::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 response{
 my($self,$url) = @_;
 my $ua = LWP::UserAgent->new;
 my $res = $ua->get($url);
}

sub pref{
 my($self,$pref) = @_;
 my $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) = @_;
 my $url = URI->new(BASE_URL."/s/".$station->{stationcode}.".json");
 my $res = $self->response($url);
 $res = xml_parse($res->content);
 return JSON::decode_json($res);
}

sub group{
 my($self,$group) = @_;
 my $url = URI->new(BASE_URL."/g/".$group->{stationcode}.".json");
 my $res = $self->response($url);
 $res = xml_parse($res->content);
 return JSON::decode_json($res);
}

sub near{
 my($self,$near) = @_;
 my $url = URI->new(BASE_URL."/n/".$near->{linecode}.".json");
 my $res = $self->response($url);
 $res = xml_parse($res->content);
 return JSON::decode_json($res);
}

sub xml_parse{
 my ($content) = @_;
 $content =~ s/if\(typeof\(xml\)==\'undefined\'\) xml = {};//;
 $content =~ s/xml.data = //;
 $content =~ s/if\(typeof\(xml.onload\)==\'function\'\) xml.onload\(xml.data\);//;
 return $content;
}

1;
__END__