summaryrefslogtreecommitdiff
path: root/lib/WebService/ForecastIo/DataBlock.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2013-05-27 16:19:04 +0100
committerdakkar <dakkar@thenautilus.net>2013-05-27 16:19:04 +0100
commitefc9140e8274590e9d698835cb717b85f39c5b65 (patch)
treeb5a20c323c586a4be48a002fd17dbb75fd27ea31 /lib/WebService/ForecastIo/DataBlock.pm
parentDataBlock slices, better spans and stripes (diff)
downloadHomePanel-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.pm8
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
- ],
+ ],
});
}