fixed snippet from HTML::Zoom manpage (proposal)

gistfile1.pl

sub code_stream (&) {
  my $code = shift;
  return sub {
    HTML::Zoom::CodeStream->new({
      code => $code,
    });
  }
}

$zoom->select('.item')->repeat(code_stream {
  if (my $name = shift @list) {
    return sub { $_->select('.item-name')->replace_content($name) }
  } else {
    return
  }
}, { flush_before => $flush });