diff options
Diffstat (limited to 'lib/WebService')
| -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 |