=pod
=item DESTROY

   Called when the last reference to the object goes away.
=cut
sub DESTROY {
   my($self) = @_ ;

   if( $self->{_dbh } ) {
      # check in case it was deallocated somewhere else
      $self->{_dbh}->disconnect() ;
   }

}