X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FHTML%2FZoom%2FCodeStream.pm;h=ac5812f78c263efd186bcd02c797a1408667e5dd;hb=1cf035405cb81b780825c083cf7f5c0767b19243;hp=2232f289a6df29c6fa0d7d295b22bf3cafcaf6be;hpb=3cdbc13fadcd5e13e38f95f37529d2e9f1b50a51;p=catagits%2FHTML-Zoom.git

diff --git a/lib/HTML/Zoom/CodeStream.pm b/lib/HTML/Zoom/CodeStream.pm
index 2232f28..ac5812f 100644
--- a/lib/HTML/Zoom/CodeStream.pm
+++ b/lib/HTML/Zoom/CodeStream.pm
@@ -1,32 +1,15 @@
 package HTML::Zoom::CodeStream;
 
-use strict;
-use warnings FATAL => 'all';
+use strictures 1;
 use base qw(HTML::Zoom::StreamBase);
 
-sub from_array {
-  my ($class, @array) = @_;
-  $class->new({ code => sub {
-    return unless @array;
-    return shift @array;
-  }});
-}
-
 sub new {
   my ($class, $args) = @_;
-  bless({ _code => $args->{code} }, $class);
+  bless({ _code => $args->{code}, _zconfig => $args->{zconfig} }, $class);
 }
 
-sub next {
-  my ($self) = @_;
-
-  # peeked entry so return that
-
-  if (exists $self->{_peeked}) {
-    return (delete $self->{_peeked});
-  }
-
-  $self->{_code}->();
+sub _next {
+  $_[0]->{_code}->();
 }
 
 1;