projects
/
catagits/HTML-Zoom.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
b616863
)
introduce superclass for streams
Matt S Trout [Wed, 17 Feb 2010 22:30:55 +0000 (22:30 +0000)]
lib/HTML/Zoom/CodeStream.pm
patch
|
blob
|
blame
|
history
lib/HTML/Zoom/FilterStream.pm
patch
|
blob
|
blame
|
history
lib/HTML/Zoom/StreamBase.pm
[new file with mode: 0644]
patch
|
blob
diff --git
a/lib/HTML/Zoom/CodeStream.pm
b/lib/HTML/Zoom/CodeStream.pm
index
144effa
..
585e05c
100644
(file)
--- 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
(file)
--- 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
(file)
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;