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 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'forecast.pl')

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;
-- 
cgit v1.2.3