sub DESTROY {
    my $self = shift;
    $self->{dbh}->disconnect if $self->{connected};
  }

##</code><code>##

  my $class_data; END { $class_data = undef }