The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
MSTROUT / HTML-Zoom-0.009004 / t / todo-repeat.t 
use strictures 1;
use HTML::Zoom;
use Test::More skip_all => "Totally doesn't work yet";

my $z = HTML::Zoom->from_html(<<HTML);
<html>
<body>
<div id="foo"><p/></div>
</body>
</html>
HTML

my @list = qw(foo bar baz);
my $iter = sub { shift @list };

$z->select("#foo")->repeat(sub {
    my $e = $iter->() or return;
    return sub { $_->select("p")->replace_content($e) };
})->to_html;

ok 1;

done_testing;