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 | |
| 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')
| -rw-r--r-- | lib/TFL/Bus.pm | 1 | ||||
| -rw-r--r-- | lib/WebService/ForecastIo/DataBlock.pm | 8 |
2 files changed, 2 insertions, 7 deletions
diff --git a/lib/TFL/Bus.pm b/lib/TFL/Bus.pm index 1c98236..d704f19 100644 --- a/lib/TFL/Bus.pm +++ b/lib/TFL/Bus.pm @@ -239,7 +239,6 @@ sub new_from_array { my %args; my $i=1; for my $field (@prediction_return_fields) { - warn "lookinf a $field\n"; next unless exists $return_set->{$field}; $args{$field}=$array->[$i]; ++$i; 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 - ], + ], }); } |