[catagits/HTML-Zoom.git] / lib / HTML / Zoom / FlattenedStream.pm

package HTML::Zoom::FlattenedStream;

use strict;
use warnings FATAL => 'all';
use base qw(HTML::Zoom::StreamBase);

sub new {
  my ($class, $args) = @_;
  bless({ _source => $args->{source}, _zconfig => $args->{zconfig} }, $class);
}

sub _next {

  return unless (my $self = shift)->{_source};
  my ($next, $s);
  until (($next) = ($s = $self->{_cur}) ? $s->next : ()) {
    unless (($self->{_cur}) = $self->{_source}->next) {
      delete $self->{_source}; return;
    }
  }
  return $next;
}

1;
Commit	Line	Data
8a1c87d1	1	package HTML::Zoom::FlattenedStream;
	2
	3	use strict;
	4	use warnings FATAL => 'all';
	5	use base qw(HTML::Zoom::StreamBase);
	6
	7	sub new {
	8	my ($class, $args) = @_;
	9	bless({ _source => $args->{source}, _zconfig => $args->{zconfig} }, $class);
	10	}
	11
b5a48c47	12	sub _next {
b5a48c47	13
8a1c87d1	14	return unless (my $self = shift)->{_source};
	15	my ($next, $s);
	16	until (($next) = ($s = $self->{_cur}) ? $s->next : ()) {
	17	unless (($self->{_cur}) = $self->{_source}->next) {
	18	delete $self->{_source}; return;
	19	}
	20	}
	21	return $next;
	22	}
	23
	24	1;