1 package HTML::Zoom::CodeStream;
4 use warnings FATAL => 'all';
5 use base qw(HTML::Zoom::StreamBase);
8 my ($class, @array) = @_;
9 $class->new({ code => sub {
16 my ($class, $args) = @_;
17 bless({ _code => $args->{code} }, $class);
23 # peeked entry so return that
25 if (exists $self->{_peeked}) {
26 return (delete $self->{_peeked});