factor out ArrayStream, update new stream types to respect peek

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

diff --git a/lib/HTML/Zoom/MappedStream.pm b/lib/HTML/Zoom/MappedStream.pm
index 09ef6be..7d0c505 100644 (file)
--- a/lib/HTML/Zoom/MappedStream.pm
+++ b/lib/HTML/Zoom/MappedStream.pm
@@ -12,7 +12,7 @@ sub new {
   }, $class);
 }
 
-sub next {
+sub _next {
   return unless (my $self = shift)->{_source};
   # If we were aiming for a "true" perl-like map then we should
   # elegantly handle the case where the map function returns 0 events