Commit | Line | Data |
---|---|---|
23ba49c7 | 1 | use strict; |
2 | use HTML::Zoom; | |
039e108c | 3 | use Test::More skip_all => "Totally doesn't work yet"; |
23ba49c7 | 4 | |
5 | my $z = HTML::Zoom->from_html(<<HTML); | |
6 | <html> | |
7 | <body> | |
8 | <div id="foo"><p/></div> | |
9 | </body> | |
10 | </html> | |
11 | HTML | |
12 | ||
13 | my @list = qw(foo bar baz); | |
14 | my $iter = sub { shift @list }; | |
15 | ||
16 | $z->select("#foo")->repeat(sub { | |
17 | my $e = $iter->() or return; | |
18 | return sub { $_->select("p")->replace_content($e) }; | |
19 | })->to_html; | |
20 | ||
21 | ok 1; | |
22 | ||
23 | done_testing; |