From 9fa0894f8411abcda5a6a5f8f999714fce0e0b53 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Wed, 6 Nov 2013 17:54:14 +0000 Subject: exclude "sources" in forecast call --- forecast.pl | 2 +- lib/WebService/ForecastIo.pm | 2 +- 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 { -- cgit v1.2.3