2 use Test::More qw(no_plan);
9 <title>Hello people</title>
12 <h1 id="greeting">Placeholder</h1>
15 <p>Name: <span class="name">Bob</span></p>
16 <p>Age: <span class="age">23</span></p>
18 <hr class="between" />
24 my $output = HTML::Zoom
25 ->from_html($template)
26 ->select('title, #greeting')->replace_content('Hello world & dog!')
27 ->select('#list')->repeat_content(
30 $_->select('.name')->replace_content('Matt')
31 ->select('.age')->replace_content('26')
34 $_->select('.name')->replace_content('Mark')
35 ->select('.age')->replace_content('0x29')
38 $_->select('.name')->replace_content('Epitaph')
39 ->select('.age')->replace_content('<redacted>')
42 { repeat_between => '.between' }
50 <title>Hello world & dog!</title>
53 <h1 id="greeting">Hello world & dog!</h1>
56 <p>Name: <span class="name">Matt</span></p>
57 <p>Age: <span class="age">26</span></p>
59 <hr class="between" />
61 <p>Name: <span class="name">Mark</span></p>
62 <p>Age: <span class="age">0x29</span></p>
64 <hr class="between" />
66 <p>Name: <span class="name">Epitaph</span></p>
67 <p>Age: <span class="age"><redacted></span></p>
74 is($output, $expect, 'Synopsis code works ok');