1 package HTML::Zoom::FlattenedStream;
4 use base qw(HTML::Zoom::StreamBase);
7 my ($class, $args) = @_;
8 bless({ _source => $args->{source}, _zconfig => $args->{zconfig} }, $class);
13 return unless (my $self = shift)->{_source};
15 until (($next) = ($s = $self->{_cur}) ? $s->next : ()) {
16 unless (($self->{_cur}) = $self->{_source}->next) {
17 delete $self->{_source}; return;