File Coverage

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

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	6	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	39	41.0

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

sub call{
  my($self,$class,$arg) = @_;

  my $line = $arg->{line};
  my $name = $arg->{name};

  unless(defined $line or defined $name){
    croak("line or name is either required");
  }

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

  my $content = WebService::Heartrails::Express::Provider::Common::call($class,$sub_url);

  return JSON::decode_json($content)->{response}->{station};

}

1;