in reply to When -w and use strict aren't enough...
sub foo{ my $thing = shift; print $thing->to_xml; } [download]