diff options
author | dakkar <dakkar@thenautilus.net> | 2013-05-27 16:19:04 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-05-27 16:19:04 +0100 |
commit | efc9140e8274590e9d698835cb717b85f39c5b65 (patch) | |
tree | b5a20c323c586a4be48a002fd17dbb75fd27ea31 /lib/WebService/ForecastIo/DataBlock.pm | |
parent | DataBlock slices, better spans and stripes (diff) | |
download | HomePanel-efc9140e8274590e9d698835cb717b85f39c5b65.tar.gz HomePanel-efc9140e8274590e9d698835cb717b85f39c5b65.tar.bz2 HomePanel-efc9140e8274590e9d698835cb717b85f39c5b65.zip |
kill debug warns
Diffstat (limited to 'lib/WebService/ForecastIo/DataBlock.pm')
-rw-r--r-- | lib/WebService/ForecastIo/DataBlock.pm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm index c01e1cf..9885c42 100644 --- a/lib/WebService/ForecastIo/DataBlock.pm +++ b/lib/WebService/ForecastIo/DataBlock.pm @@ -48,17 +48,13 @@ sub slice { my $from = $opts{from} // 0-'Inf'; my $to = $opts{to} // 0+'Inf'; - warn "slicing $from $to\n"; - return ref($self)->new({ summary => $self->summary, icon => $self->icon, data => [ - grep { - warn "looking at ".$_->time."\n"; - $_->time >= $from && $_->time <= $to } + grep { $_->time >= $from && $_->time <= $to } $self->data_points - ], + ], }); } |