diff options
author | dakkar <dakkar@thenautilus.net> | 2013-05-16 22:06:09 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-05-16 22:06:09 +0100 |
commit | 9b724c2c7edc3c2805516fea7f584cdf0031d8ca (patch) | |
tree | 549dac74b5f47a0b7810b990007829e48252d925 /lib/WebService/ForecastIo.pm | |
parent | "time" support (diff) | |
download | HomePanel-9b724c2c7edc3c2805516fea7f584cdf0031d8ca.tar.gz HomePanel-9b724c2c7edc3c2805516fea7f584cdf0031d8ca.tar.bz2 HomePanel-9b724c2c7edc3c2805516fea7f584cdf0031d8ca.zip |
modules for all response blocks
Diffstat (limited to 'lib/WebService/ForecastIo.pm')
-rw-r--r-- | lib/WebService/ForecastIo.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/WebService/ForecastIo.pm b/lib/WebService/ForecastIo.pm index 45e7802..a2ef8ec 100644 --- a/lib/WebService/ForecastIo.pm +++ b/lib/WebService/ForecastIo.pm @@ -5,6 +5,7 @@ use MooseX::Types::DateTime; use MooseX::Params::Validate; use Moose::Util::TypeConstraints; use DateTime::Format::ISO8601; +use WebService::ForecastIo::Response; has base_uri => ( is => 'ro', @@ -55,7 +56,7 @@ sub _make_request_uri { } $req_uri->path_segments( - grep { length($_)>0 } + grep { length($_) } $req_uri->path_segments, $self->api_key, "$lat,$lon", @@ -96,7 +97,9 @@ sub request { my $response = $self->user_agent->get($uri); if ($response->is_success) { - return $response->decoded_content; + return WebService::ForecastIo::Response->new( + $response->decoded_content, + ); } else { die $response->status_line |