]>
iEval git - html-element-library.git/blob - t/prune.t
11 use_ok
( 'HTML::TreeBuilder' );
12 use_ok
( 'HTML::Element::Library' );
17 my $root = HTML
:: TreeBuilder
-> new ();
24 <div>There was man named Jed</div>
25 <div>He did not have a head</div>
26 <div>He lived beneath a sled</div>
27 <div>Now he's afraid of Fred...</div>
35 $root -> delete_ignorable_whitespace ;
41 <div>There was man named Jed</div><div>He did not have a head</div><div>He lived beneath a sled</div><div>Now he's afraid of Fred...</div> </body>
45 #warn sprintf 'HTML:%s:HTML', $root->as_HTML;
47 is_xml
( $root -> as_HTML , $expected , 'test pruning' );
This page took 0.050081 seconds and 4 git commands to generate.