File Coverage

blib/lib/WebService/Heartrails/Express.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package WebService::Heartrails::Express;

use 5.008005;
use Mouse;
use WebService::Heartrails::Express::Provider;

our $VERSION = "0.01";

has provider => (
   is => 'ro',
   isa => 'WebService::Heartrails::Express::Provider',
   lazy_build => 1,
);

has areas => (
   is => 'rw',
   isa => 'ArrayRef',
   lazy_build => 1
);

has prefs => (
   is => 'rw',
   isa => 'ArrayRef',
   lazy_build => 1
);

sub line{
  my $self = shift;
  $self->provider->dispatch('line',@_);
}

sub station{
  my $self = shift;
  $self->provider->dispatch('station',@_);
}

sub near{
  my $self = shift;
  $self->provider->dispatch('near',@_);
}

use Furl;

sub _build_provider{
  my $self = shift;
  return WebService::Heartrails::Express::Provider->new(
       furl => Furl->new(
          agent  => 'WebService::Heartrails::Express(Perl)',
         timeout => 10,
       ),
  );
}

use constant AREA_ENDPOINT => 'http://express.heartrails.com/api/json?method=getAreas';
use constant PREF_ENDPOINT => 'http://express.heartrails.com/api/json?method=getPrefectures';

sub _build_areas{
 my $self = shift;
 my $response = $self->provider->furl->get(AREA_ENDPOINT);
 my $content = JSON::decode_json($response->{content});
 return $content->{response}->{area};
}

sub _build_prefs{
 my $self = shift;
 my $response = $self->provider->furl->get(PREF_ENDPOINT);
 my $content = JSON::decode_json($response->{content});
 return $content->{response}->{prefecture};
}

no Mouse;
__PACKAGE__->meta->make_immutable;

1;

__END__