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