X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FFilterStream.pm;h=e6d7a8316f727fb23d65dd87a3f6bcf275d69d4f;hb=03e514ef00966bd6299310fded151dd0304d4fc3;hp=89605dd7c8b014261e6dcb2ae80810d768cd0a89;hpb=8f9628843b59b74bb8f8936460fb8676c410c35f;p=catagits%2FHTML-Zoom.git

diff --git a/lib/HTML/Zoom/FilterStream.pm b/lib/HTML/Zoom/FilterStream.pm
index 89605dd..e6d7a83 100644
--- a/lib/HTML/Zoom/FilterStream.pm
+++ b/lib/HTML/Zoom/FilterStream.pm
@@ -2,6 +2,7 @@ package HTML::Zoom::FilterStream;
 
 use strict;
 use warnings FATAL => 'all';
+use base qw(HTML::Zoom::StreamBase);
 
 sub new {
   my ($class, $args) = @_;
@@ -10,22 +11,12 @@ sub new {
       _stream => $args->{stream},
       _match => $args->{match},
       _filter => $args->{filter},
+      _zconfig => $args->{zconfig},
     },
     $class
   );
 }
 
-sub peek {
-  my ($self) = @_;
-  if (exists $self->{_peeked}) {
-    return ($self->{_peeked});
-  }
-  if (my ($peeked) = $self->next) {
-    return ($self->{_peeked} = $peeked);
-  }
-  return;
-}
-
 sub next {
   my ($self) = @_;