DataBlock slices, better spans and stripes

1 files changed, 23 insertions, 0 deletions

diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm
index 42b3d0e..c01e1cf 100644
--- a/lib/WebService/ForecastIo/DataBlock.pm
+++ b/lib/WebService/ForecastIo/DataBlock.pm
@@ -42,6 +42,26 @@ sub spans_by_number {
     );
 }
 
+sub slice {
+    my ($self,%opts) = @_;
+
+    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 }
+                $self->data_points
+        ],
+    });
+}
+
 sub _spans {
     my ($self,$field,$comp) = @_;
 
@@ -68,6 +88,9 @@ sub _spans {
             }
         }
     }
+    if (@$out) {
+        $out->[-1]->_set_stop_time($self->data->[-1]->time);
+    }
 
     return $out;
 }