File Coverage

blib/lib/WebService/Heartrails/Express/Provider/Near.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package WebService::Heartrails::Express::Provider::Near;
use strict;
use warnings;
use utf8;
use WebService::Heartrails::Express::Provider::Common;
use Carp;

sub call{
  my($self,$class,$arg) = @_;
  my $x = $arg->{x};
  my $y = $arg->{y};

  unless(defined $x or defined $y){
     croak("x or y is either required");
  }

  my $sub_url =do{
   if(not defined $x){
     {method => 'getStations',y => $y};
   }elsif(not defined $y){
     {method => 'getStations',x => $x};
   }else{
     {method => 'getStations',x => $x,y => $y};
   }
  };

  my $content = WebService::Heartrails::Express::Provider::Common::call($class,$sub_url);
  return JSON::decode_json($content)->{response}->{station};
}

1;