more object destruction cleanups

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

View file

@ -669,27 +669,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 )