From efc9140e8274590e9d698835cb717b85f39c5b65 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 27 May 2013 16:19:04 +0100
Subject: kill debug warns

---
 lib/TFL/Bus.pm                         | 1 -
 lib/WebService/ForecastIo/DataBlock.pm | 8 ++------
 2 files changed, 2 insertions(+), 7 deletions(-)

(limited to 'lib')

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
-        ],
+            ],
     });
 }
 
-- 
cgit v1.2.3