2 use warnings FATAL => 'all';
3 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" />
23 my $output = HTML::Zoom
24 ->from_html($template)
25 ->select('title, #greeting')->replace_content('Hello world & dog!')
26 ->select('#list')->repeat_content(
29 $_->select('.name')->replace_content('Matt')
30 ->select('.age')->replace_content('26')
33 $_->select('.name')->replace_content('Mark')
34 ->select('.age')->replace_content('0x29')
37 $_->select('.name')->replace_content('Epitaph')
38 ->select('.age')->replace_content('<redacted>')
41 { repeat_between => '.between' }
47 <title>Hello world & dog!</title>
50 <h1 id="greeting">Hello world & dog!</h1>
53 <p>Name: <span class="name">Matt</span></p>
54 <p>Age: <span class="age">26</span></p>
56 <hr class="between" />
58 <p>Name: <span class="name">Mark</span></p>
59 <p>Age: <span class="age">0x29</span></p>
61 <hr class="between" />
63 <p>Name: <span class="name">Epitaph</span></p>
64 <p>Age: <span class="age"><redacted></span></p>
71 is($output, $expect, 'Synopsis code works ok');;