diff options
author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-05-30 07:37:30 +0100 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-05-30 07:37:30 +0100 |
commit | 96db5e7f38749b821ac0bca77128fa5890e6ed01 (patch) | |
tree | c2558961ea7c1af70e073eb77a4987d96f1b2216 /lib | |
parent | show predicted arrivals (diff) | |
download | HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.tar.gz HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.tar.bz2 HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.zip |
return json response
Diffstat (limited to 'lib')
-rw-r--r-- | lib/WebService/ForecastIo.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/WebService/ForecastIo.pm b/lib/WebService/ForecastIo.pm index a2ef8ec..1761be1 100644 --- a/lib/WebService/ForecastIo.pm +++ b/lib/WebService/ForecastIo.pm @@ -97,9 +97,9 @@ sub request { my $response = $self->user_agent->get($uri); if ($response->is_success) { - return WebService::ForecastIo::Response->new( - $response->decoded_content, - ); + my $json = $response->decoded_content; + my $res = WebService::ForecastIo::Response->new($json); + return wantarray ? ($res,$json) : $res } else { die $response->status_line |