use strict;
use warnings;

package My::Spew;

use XML::Spew;
use base 'XML::Spew';

__PACKAGE__->_tags(qw/Body Foo/);

package main;

my $spew = My::Spew->_new ();

print $spew->Body ($spew->Foo ('Bar'));