update version

[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..acedcae 100644 (file)
--- a/lib/HTML/Zoom/FlattenedStream.pm
+++ b/lib/HTML/Zoom/FlattenedStream.pm
@@ -1,7 +1,6 @@
 package HTML::Zoom::FlattenedStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
 sub new {
@@ -9,7 +8,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 : ()) {