File Coverage

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

Criterion	Covered	Total	%
statement	9	21	42.8
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	35	34.2

package WebService::Heartrails::Express::Provider::Line;

use utf8;
use Encode;
use Carp;
sub call{
 my ($self,$class,$arg) = @_;

 my $area       = $arg->{area};
 my $prefecture = $arg->{prefecture};

 unless(defined $area or defined $prefecture){
  croak("area or prefecture is eithder required");
 }
 my $sub_url = do{
  if(not defined $area){
    {method => 'getLines',prefecture => $prefecture};
  }elsif(not defined $prefecture){
    {method => 'getLines',area => $area};
  }else{
    {method => 'getLines',area => $area,prefecture => $prefecture};
  }
 };
 my $content = WebService::Heartrails::Express::Provider::Common::call($class,$sub_url);
 return JSON::decode_json($content)->{response}->{line};
}

1;