From 96db5e7f38749b821ac0bca77128fa5890e6ed01 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
Date: Thu, 30 May 2013 07:37:30 +0100
Subject: return json response

---
 forecast.pl                  | 4 +++-
 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
-- 
cgit v1.2.3