X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FFilterStream.pm;h=a0bc6b76b849032012ebf7a64c6edc9927255e78;hb=b5a48c47bf8e416e5950f59543a6759fc128f38e;hp=e6d7a8316f727fb23d65dd87a3f6bcf275d69d4f;hpb=8a1c87d1e064299bf7f854cc7634b47c4c4cd407;p=catagits%2FHTML-Zoom.git diff --git a/lib/HTML/Zoom/FilterStream.pm b/lib/HTML/Zoom/FilterStream.pm index e6d7a83..a0bc6b7 100644 --- a/lib/HTML/Zoom/FilterStream.pm +++ b/lib/HTML/Zoom/FilterStream.pm @@ -17,15 +17,9 @@ sub new { ); } -sub next { +sub _next { my ($self) = @_; - # peeked entry so return that - - if (exists $self->{_peeked}) { - return (delete $self->{_peeked}); - } - # if our main stream is already gone then we can short-circuit # straight out - there's no way for an alternate stream to be there