Select Code to Download

sub DESTROY {
    my $self = shift;
...
    }
    $self->{ _dbh }->disconnect;
}

sub update_admin_message {
    my ( $self, $data_hash ) = @_;
...
    my $data = $self->_update_database( $sql, $values );
    $self->{ _dbh }->commit if ! $self->{ _error };
}