summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGianni Ceccarelli <dakkar@thenautilus.net>2013-11-06 17:54:14 +0000
committerGianni Ceccarelli <dakkar@thenautilus.net>2013-11-06 17:54:14 +0000
commit9fa0894f8411abcda5a6a5f8f999714fce0e0b53 (patch)
tree486c131f314f7ea389d8dc8dd72e821d3c9fa49b
parentkill test files (diff)
downloadHomePanel-9fa0894f8411abcda5a6a5f8f999714fce0e0b53.tar.gz
HomePanel-9fa0894f8411abcda5a6a5f8f999714fce0e0b53.tar.bz2
HomePanel-9fa0894f8411abcda5a6a5f8f999714fce0e0b53.zip
exclude "sources" in forecast call
-rw-r--r--forecast.pl2
-rw-r--r--lib/WebService/ForecastIo.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/forecast.pl b/forecast.pl
index c8d6e58..927e980 100644
--- a/forecast.pl
+++ b/forecast.pl
@@ -15,7 +15,7 @@ my $fio = WebService::ForecastIo->new({
my $json = $fio->request({
latitude => 51.54,
longitude => -0.37,
- exclude => ['flags'],
+ exclude => ['flags','sources'],
raw => 1,
});
diff --git a/lib/WebService/ForecastIo.pm b/lib/WebService/ForecastIo.pm
index 31f06ab..c336378 100644
--- a/lib/WebService/ForecastIo.pm
+++ b/lib/WebService/ForecastIo.pm
@@ -75,7 +75,7 @@ sub _make_request_uri {
enum my $units_type=__PACKAGE__.'::units',
[qw(us si ca uk auto)];
enum my $block_type=__PACKAGE__.'::block',
- [qw(currently minutely hourly daily alerts flags)];
+ [qw(currently minutely hourly daily alerts flags sources)];
coerce 'DateTime', from 'Str',
via {