factor out ArrayStream, update new stream types to respect peek

[catagits/HTML-Zoom.git] / lib / HTML / Zoom / FlattenedStream.pm

diff --git a/lib/HTML/Zoom/FlattenedStream.pm b/lib/HTML/Zoom/FlattenedStream.pm
index 28c44c2..d33c9ea 100644 (file)
--- a/lib/HTML/Zoom/FlattenedStream.pm
+++ b/lib/HTML/Zoom/FlattenedStream.pm
@@ -9,7 +9,8 @@ sub new {
   bless({ _source => $args->{source}, _zconfig => $args->{zconfig} }, $class);
 }
 
-sub next {
+sub _next {
+
   return unless (my $self = shift)->{_source};
   my ($next, $s);
   until (($next) = ($s = $self->{_cur}) ? $s->next : ()) {