<html>, <body id="spoon">, "YAY", </body>, </html>;
}
+ sub fleem {
+ use XML::Tags qw(woo);
+ my $ent = "one&two";
+ <woo ent="$ent">;
+ }
+
sub globbery {
<t/globbery/*>;
}
);
is(
+ join('', XML::Tags::to_xml_string Foo::fleem),
+ '<woo ent="one&two">',
+ 'Escaping ok'
+);
+
+is(
join(', ', Foo::globbery),
't/globbery/one, t/globbery/two',
'real glob re-installed ok'