use strictures 1; use HTML::Zoom; use Test::More skip_all => "Totally doesn't work yet"; my $z = HTML::Zoom->from_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;