diff options
-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 |