# implicit return.
sub to_xml { shift->to_html(@_) }
# get rid of shifting - only if there is no one deriving off
# this object, and to_html is in the same package.
sub to_xml { to_html(@_) }
# what are we passing in @_ for?
sub to_xml { &to_html }
# ah, heck, this whole thing is just an alias anyway.
*to_xml = \&to_html;