<woo ent="$ent">;
}
+sub flaax {
+ use XML::Tags qw(woo);
+ my $data = "one&two<three>four";
+ <woo>, $data, </woo>,
+ <woo>, \$data, </woo>;
+}
+
sub globbery {
<t/globbery/*>;
}
);
is(
+ join('', XML::Tags::to_xml_string Foo::flaax),
+ '<woo>one&two<three>four</woo><woo>one&two<three>four</woo>',
+ 'Escaping user data ok'
+);
+
+is(
join(', ', Foo::globbery),
't/globbery/one, t/globbery/two',
'real glob re-installed ok'