diff options
| author | dakkar <dakkar@thenautilus.net> | 2013-08-23 10:43:30 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2013-08-23 10:43:30 +0100 |
| commit | 37f8482d2c24d6b1a12a7f409f1b86a8e3857fe8 (patch) | |
| tree | dd1ef737689c91d642ec8ff5a67de3b59b952169 /lib/WebService | |
| parent | minor css adjustment (diff) | |
| download | HomePanel-37f8482d2c24d6b1a12a7f409f1b86a8e3857fe8.tar.gz HomePanel-37f8482d2c24d6b1a12a7f409f1b86a8e3857fe8.tar.bz2 HomePanel-37f8482d2c24d6b1a12a7f409f1b86a8e3857fe8.zip | |
return just json for forecast
Diffstat (limited to 'lib/WebService')
| -rw-r--r-- | lib/WebService/ForecastIo.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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 } |