From 37f8482d2c24d6b1a12a7f409f1b86a8e3857fe8 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 23 Aug 2013 10:43:30 +0100
Subject: return just json for forecast

---
 lib/WebService/ForecastIo.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/WebService/ForecastIo.pm b/lib/WebService/ForecastIo.pm
index 1761be1..31f06ab 100644
--- a/lib/WebService/ForecastIo.pm
+++ b/lib/WebService/ForecastIo.pm
@@ -91,6 +91,7 @@ sub request {
         time => { isa => 'DateTime', optional => 1, coerce => 1 },
         units => { isa => $units_type, default => 'si' },
         exclude => { isa => "ArrayRef[$block_type]", default => sub { [] } },
+        raw => { isa => 'Bool', default => 0 },
     );
 
     my $uri = $self->_make_request_uri(%opts);
@@ -98,6 +99,7 @@ sub request {
     my $response = $self->user_agent->get($uri);
     if ($response->is_success) {
         my $json = $response->decoded_content;
+        return $json if $opts{raw};
         my $res = WebService::ForecastIo::Response->new($json);
         return wantarray ? ($res,$json) : $res
     }
-- 
cgit v1.2.3