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


in reply to "cleaning out" object data

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

pelagic

Replies are listed 'Best First'.
Re^2: "cleaning out" object data
by Forsaken (Friar) on May 20, 2005 at 07:41 UTC
    That was also my first thought, but that:
    - destroys the object if it isn't referenced elsewhere, or
    - does absolutely nothing if it is still referenced elsewhere.

    Basically, as it turns out, all that does is take the variable $self that previously contained a reference to a blessed object, and gives it a new value, a reference to a newly created anonymous hash. So unless $self was the only reference to the object(which it isn't in my specific case) absolutely nothing happens :-)

    edit: formatting

    Remember rule one...

      Yes, of course, you're absolutely right. So I'm afraid your somewhat unelegant solution is the best we can get.

      pelagic
Re^2: "cleaning out" object data
by polettix (Vicar) on May 20, 2005 at 09:52 UTC
    To obtain the requested effect you'd use rev_1318's solution below, i.e. assigning to %$self and not to $self. Typo?

    Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

    Don't fool yourself.