2 use warnings FATAL => 'all';
3 use Test::More qw(no_plan);
10 <title>Hello people</title>
13 <h1 id="greeting">Placeholder</h1>
16 <p>Name: <span class="name">Bob</span></p>
17 <p>Age: <span class="age">23</span></p>
19 <hr class="between" />
25 my $output = HTML::Zoom
26 ->from_html($template)
27 ->select('title, #greeting')->replace_content('Hello world & dog!')
28 ->select('#list')->repeat_content(
31 $_->select('.name')->replace_content('Matt')
32 ->select('.age')->replace_content('26')
35 $_->select('.name')->replace_content('Mark')
36 ->select('.age')->replace_content('0x29')
39 $_->select('.name')->replace_content('Epitaph')
40 ->select('.age')->replace_content('<redacted>')
43 { repeat_between => '.between' }
51 <title>Hello world & dog!</title>
54 <h1 id="greeting">Hello world & dog!</h1>
57 <p>Name: <span class="name">Matt</span></p>
58 <p>Age: <span class="age">26</span></p>
60 <hr class="between" />
62 <p>Name: <span class="name">Mark</span></p>
63 <p>Age: <span class="age">0x29</span></p>
65 <hr class="between" />
67 <p>Name: <span class="name">Epitaph</span></p>
68 <p>Age: <span class="age"><redacted></span></p>
75 is($output, $expect, 'Synopsis code works ok');