1 use strict; use warnings FATAL => 'all';
2 use Test::More qw(no_plan);
9 use XML::Tags qw(one two three);
10 <one>, <two>, <three>;
14 no warnings 'once'; # this is supposed to warn, it's broken
19 use XML::Tags qw(bar);
25 <html>, <body id="spoon">, \"YAY", </body>, </html>;
30 join(', ', map ${$_}, Foo::foo()),
31 '<one>, <two>, <three>',
35 ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
38 join(', ', map ${$_}, Foo::baz()),
44 join('', map ${$_}, Foo::quux),
45 '<html><body id="spoon">YAY</body></html>',