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 | |
parent | show predicted arrivals (diff) | |
download | HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.tar.gz HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.tar.bz2 HomePanel-96db5e7f38749b821ac0bca77128fa5890e6ed01.zip |
return json response
-rw-r--r-- | forecast.pl | 4 | ||||
-rw-r--r-- | lib/WebService/ForecastIo.pm | 6 |
2 files changed, 6 insertions, 4 deletions
diff --git a/forecast.pl b/forecast.pl index 1ff4754..fd47323 100644 --- a/forecast.pl +++ b/forecast.pl @@ -12,10 +12,12 @@ my $fio = WebService::ForecastIo->new({ api_key => $key, }); -my $response = $fio->request({ +my ($response,$json) = $fio->request({ latitude => 51.54, longitude => -0.37, exclude => ['minutely','flags'], }); +say $json; + p $response; 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 |