From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 17 Feb 2010 22:30:55 +0000 (+0000)
Subject: introduce superclass for streams
X-Git-Tag: release_0.009004~81
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=5f74b8831026aebd638035b498609cfa561f69a2

introduce superclass for streams
---

diff --git a/lib/HTML/Zoom/CodeStream.pm b/lib/HTML/Zoom/CodeStream.pm
index 144effa..585e05c 100644
--- a/lib/HTML/Zoom/CodeStream.pm
+++ b/lib/HTML/Zoom/CodeStream.pm
@@ -2,6 +2,7 @@ package HTML::Zoom::CodeStream;
 
 use strict;
 use warnings FATAL => 'all';
+use base qw(HTML::Zoom::StreamBase);
 
 sub from_array {
   my ($class, @array) = @_;
diff --git a/lib/HTML/Zoom/FilterStream.pm b/lib/HTML/Zoom/FilterStream.pm
index 89605dd..641144f 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) = @_;
diff --git a/lib/HTML/Zoom/StreamBase.pm b/lib/HTML/Zoom/StreamBase.pm
new file mode 100644
index 0000000..7584ed6
--- /dev/null
+++ b/lib/HTML/Zoom/StreamBase.pm
@@ -0,0 +1,6 @@
+package HTML::Zoom::StreamBase;
+
+use strict;
+use warnings FATAL => 'all';
+
+1;