File Coverage

blib/lib/HTML/Zoom/FlattenedStream.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	24	26	92.3

package HTML::Zoom::FlattenedStream;

use strictures 1;
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;