more object destruction cleanups

This commit is contained in:
Graham Knop 2010-04-18 18:48:59 -05:00
parent 22619cfb9a
commit 83dbe97687
4 changed files with 11 additions and 34 deletions

View file

@ -663,27 +663,6 @@ sub drawExtraHeadTags {
});
}
#-------------------------------------------------------------------
=head2 DESTROY ( )
Completely remove an asset from existence.
=cut
sub DESTROY {
my $self = shift;
# Let the parent be garbage collected if no one else is referencing
# him. firstChild and lastChild are weak references, so no need to
# worry about them here.
delete $self->{_parent};
$self = undef;
}
#-------------------------------------------------------------------
=head2 extraHeadTags ( value )