http://www.perlmonks.org?node_id=458867


in reply to "cleaning out" object data

How about:
my $self = shift; $self = ();

pelagic