<woo>, \$data, </woo>;
}
+ sub HTML_comment {
+ use HTML::Tags;
+ <!-- this is a comment -->;
+ }
+
sub PI {
use XML::Tags;
<?xml version="1.0" encoding="UTF-8"?>;
);
is(
+ join('', XML::Tags::to_xml_string Foo::HTML_comment),
+ '<!-- this is a comment -->',
+ 'HTML comment ok'
+);
+
+is(
join('', XML::Tags::to_xml_string Foo::fleem),
'<woo ent="one&two<three>"four">',
'Escaping ok'