Is the object reference passed in when DESTROY is called? IE can I rely on 'my $self = shift;' being valid?
What Im hoping to achieve is to clean up a database handle in the destructor. I have the 'DBH' saved as a member variable and would like to be able to clear it as such.
sub DESTROY
{
my $self = shift;
$self->{ 'dbh' }->disconnect();
}