datamapper-dm-core 0.9.11 → 0.10.0

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: datamapper-dm-core
 version: !ruby/object:Gem::Version 
-  version: 0.9.11
+  version: 0.10.0
 platform: ruby
 authors: 
 - Dan Kubb
@@ -9,19 +9,9 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-03-23 00:00:00 -07:00
+date: 2009-07-30 00:00:00 -07:00
 default_executable: 
 dependencies: 
-- !ruby/object:Gem::Dependency 
-  name: data_objects
-  type: :runtime
-  version_requirement: 
-  version_requirements: !ruby/object:Gem::Requirement 
-    requirements: 
-    - - ~>
-      - !ruby/object:Gem::Version 
-        version: 0.9.12
-    version: 
 - !ruby/object:Gem::Dependency 
   name: extlib
   type: :runtime
@@ -30,7 +20,7 @@ dependencies:
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        version: 0.9.11
+        version: 0.9.13
     version: 
 - !ruby/object:Gem::Dependency 
   name: addressable
@@ -40,7 +30,7 @@ dependencies:
     requirements: 
     - - ~>
       - !ruby/object:Gem::Version 
-        version: 2.0.1
+        version: "2.0"
     version: 
 description: Faster, Better, Simpler.
 email: 
@@ -73,42 +63,47 @@ files:
 - lib/dm-core/adapters/data_objects_adapter.rb
 - lib/dm-core/adapters/in_memory_adapter.rb
 - lib/dm-core/adapters/mysql_adapter.rb
+- lib/dm-core/adapters/oracle_adapter.rb
 - lib/dm-core/adapters/postgres_adapter.rb
 - lib/dm-core/adapters/sqlite3_adapter.rb
-- lib/dm-core/associations.rb
+- lib/dm-core/adapters/yaml_adapter.rb
 - lib/dm-core/associations/many_to_many.rb
 - lib/dm-core/associations/many_to_one.rb
 - lib/dm-core/associations/one_to_many.rb
 - lib/dm-core/associations/one_to_one.rb
 - lib/dm-core/associations/relationship.rb
-- lib/dm-core/associations/relationship_chain.rb
-- lib/dm-core/auto_migrations.rb
 - lib/dm-core/collection.rb
-- lib/dm-core/dependency_queue.rb
-- lib/dm-core/hook.rb
+- lib/dm-core/core_ext/kernel.rb
+- lib/dm-core/core_ext/symbol.rb
 - lib/dm-core/identity_map.rb
-- lib/dm-core/is.rb
-- lib/dm-core/logger.rb
-- lib/dm-core/migrations/destructive_migrations.rb
-- lib/dm-core/migrator.rb
+- lib/dm-core/migrations.rb
 - lib/dm-core/model.rb
-- lib/dm-core/naming_conventions.rb
+- lib/dm-core/model/descendant_set.rb
+- lib/dm-core/model/hook.rb
+- lib/dm-core/model/is.rb
+- lib/dm-core/model/property.rb
+- lib/dm-core/model/relationship.rb
+- lib/dm-core/model/scope.rb
 - lib/dm-core/property.rb
 - lib/dm-core/property_set.rb
 - lib/dm-core/query.rb
+- lib/dm-core/query/conditions/comparison.rb
+- lib/dm-core/query/conditions/operation.rb
+- lib/dm-core/query/direction.rb
+- lib/dm-core/query/operator.rb
+- lib/dm-core/query/path.rb
+- lib/dm-core/query/sort.rb
 - lib/dm-core/repository.rb
 - lib/dm-core/resource.rb
-- lib/dm-core/scope.rb
-- lib/dm-core/support.rb
-- lib/dm-core/support/array.rb
-- lib/dm-core/support/assertions.rb
-- lib/dm-core/support/errors.rb
-- lib/dm-core/support/kernel.rb
-- lib/dm-core/support/symbol.rb
+- lib/dm-core/spec/adapter_shared_spec.rb
+- lib/dm-core/spec/data_objects_adapter_shared_spec.rb
+- lib/dm-core/support/chainable.rb
+- lib/dm-core/support/deprecate.rb
+- lib/dm-core/support/equalizer.rb
+- lib/dm-core/support/logger.rb
+- lib/dm-core/support/naming_conventions.rb
 - lib/dm-core/transaction.rb
 - lib/dm-core/type.rb
-- lib/dm-core/type_map.rb
-- lib/dm-core/types.rb
 - lib/dm-core/types/boolean.rb
 - lib/dm-core/types/discriminator.rb
 - lib/dm-core/types/object.rb
@@ -117,75 +112,59 @@ files:
 - lib/dm-core/types/serial.rb
 - lib/dm-core/types/text.rb
 - lib/dm-core/version.rb
-- script/all
 - script/performance.rb
 - script/profile.rb
-- spec/integration/association_spec.rb
-- spec/integration/association_through_spec.rb
-- spec/integration/associations/many_to_many_spec.rb
-- spec/integration/associations/many_to_one_spec.rb
-- spec/integration/associations/one_to_many_spec.rb
-- spec/integration/auto_migrations_spec.rb
-- spec/integration/collection_spec.rb
-- spec/integration/data_objects_adapter_spec.rb
-- spec/integration/dependency_queue_spec.rb
-- spec/integration/model_spec.rb
-- spec/integration/mysql_adapter_spec.rb
-- spec/integration/postgres_adapter_spec.rb
-- spec/integration/property_spec.rb
-- spec/integration/query_spec.rb
-- spec/integration/repository_spec.rb
-- spec/integration/resource_spec.rb
-- spec/integration/sqlite3_adapter_spec.rb
-- spec/integration/sti_spec.rb
-- spec/integration/strategic_eager_loading_spec.rb
-- spec/integration/transaction_spec.rb
-- spec/integration/type_spec.rb
-- spec/lib/logging_helper.rb
-- spec/lib/mock_adapter.rb
-- spec/lib/model_loader.rb
-- spec/lib/publicize_methods.rb
-- spec/models/content.rb
-- spec/models/vehicles.rb
-- spec/models/zoo.rb
+- spec/lib/adapter_helpers.rb
+- spec/lib/collection_helpers.rb
+- spec/lib/counter_adapter.rb
+- spec/lib/pending_helpers.rb
+- spec/lib/rspec_immediate_feedback_formatter.rb
+- spec/public/associations/many_to_many_spec.rb
+- spec/public/associations/many_to_one_spec.rb
+- spec/public/associations/one_to_many_spec.rb
+- spec/public/associations/one_to_one_spec.rb
+- spec/public/collection_spec.rb
+- spec/public/model/relationship_spec.rb
+- spec/public/model_spec.rb
+- spec/public/property_spec.rb
+- spec/public/resource_spec.rb
+- spec/public/sel_spec.rb
+- spec/public/setup_spec.rb
+- spec/public/shared/association_collection_shared_spec.rb
+- spec/public/shared/collection_shared_spec.rb
+- spec/public/shared/finder_shared_spec.rb
+- spec/public/shared/resource_shared_spec.rb
+- spec/public/shared/sel_shared_spec.rb
+- spec/public/transaction_spec.rb
+- spec/public/types/discriminator_spec.rb
+- spec/semipublic/adapters/abstract_adapter_spec.rb
+- spec/semipublic/adapters/in_memory_adapter_spec.rb
+- spec/semipublic/adapters/mysql_adapter_spec.rb
+- spec/semipublic/adapters/oracle_adapter_spec.rb
+- spec/semipublic/adapters/postgres_adapter_spec.rb
+- spec/semipublic/adapters/sqlite3_adapter_spec.rb
+- spec/semipublic/adapters/yaml_adapter_spec.rb
+- spec/semipublic/associations/many_to_one_spec.rb
+- spec/semipublic/associations/relationship_spec.rb
+- spec/semipublic/associations_spec.rb
+- spec/semipublic/collection_spec.rb
+- spec/semipublic/property_spec.rb
+- spec/semipublic/query/conditions_spec.rb
+- spec/semipublic/query/path_spec.rb
+- spec/semipublic/query_spec.rb
+- spec/semipublic/resource_spec.rb
+- spec/semipublic/shared/resource_shared_spec.rb
 - spec/spec.opts
 - spec/spec_helper.rb
-- spec/unit/adapters/abstract_adapter_spec.rb
-- spec/unit/adapters/adapter_shared_spec.rb
-- spec/unit/adapters/data_objects_adapter_spec.rb
-- spec/unit/adapters/in_memory_adapter_spec.rb
-- spec/unit/adapters/postgres_adapter_spec.rb
-- spec/unit/associations/many_to_many_spec.rb
-- spec/unit/associations/many_to_one_spec.rb
-- spec/unit/associations/one_to_many_spec.rb
-- spec/unit/associations/one_to_one_spec.rb
-- spec/unit/associations/relationship_spec.rb
-- spec/unit/associations_spec.rb
-- spec/unit/auto_migrations_spec.rb
-- spec/unit/collection_spec.rb
-- spec/unit/data_mapper_spec.rb
-- spec/unit/identity_map_spec.rb
-- spec/unit/is_spec.rb
-- spec/unit/migrator_spec.rb
-- spec/unit/model_spec.rb
-- spec/unit/naming_conventions_spec.rb
-- spec/unit/property_set_spec.rb
-- spec/unit/property_spec.rb
-- spec/unit/query_spec.rb
-- spec/unit/repository_spec.rb
-- spec/unit/resource_spec.rb
-- spec/unit/scope_spec.rb
-- spec/unit/transaction_spec.rb
-- spec/unit/type_map_spec.rb
-- spec/unit/type_spec.rb
 - tasks/ci.rb
 - tasks/dm.rb
 - tasks/doc.rb
 - tasks/gemspec.rb
 - tasks/hoe.rb
 - tasks/install.rb
-has_rdoc: true
+has_rdoc: false
 homepage: http://datamapper.org
+licenses: 
 post_install_message: 
 rdoc_options: 
 - --main
@@ -207,9 +186,9 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: datamapper
-rubygems_version: 1.2.0
+rubygems_version: 1.3.5
 signing_key: 
-specification_version: 2
+specification_version: 3
 summary: An Object/Relational Mapper for Ruby
 test_files: []
 

data/lib/dm-core/associations/relationship_chain.rb

@@ -1,81 +0,0 @@
-module DataMapper
-  module Associations
-    class RelationshipChain < Relationship
-      OPTIONS = [
-        :repository_name, :near_relationship_name, :remote_relationship_name,
-        :child_model, :parent_model, :parent_key, :child_key,
-        :min, :max
-      ]
-
-      undef_method :get_parent
-      undef_method :attach_parent
-
-      # @api private
-      def child_model
-        near_relationship.child_model
-      end
-
-      # @api private
-      def get_children(parent, options = {}, finder = :all, *args)
-        query = @query.merge(options).merge(child_key.to_query(parent_key.get(parent)))
-
-        query[:links]  = links
-        query[:unique] = true
-
-        with_repository(parent) do
-          results = grandchild_model.send(finder, *(args << query))
-          # FIXME: remove the need for the uniq.freeze
-          finder == :all ? (@mutable ? results : results.freeze) : results
-        end
-      end
-
-      private
-
-      # @api private
-      def initialize(options)
-        if (missing_options = OPTIONS - [ :min, :max ] - options.keys ).any?
-          raise ArgumentError, "The options #{missing_options * ', '} are required", caller
-        end
-
-        @repository_name          = options.fetch(:repository_name)
-        @near_relationship_name   = options.fetch(:near_relationship_name)
-        @remote_relationship_name = options.fetch(:remote_relationship_name)
-        @child_model              = options.fetch(:child_model)
-        @parent_model             = options.fetch(:parent_model)
-        @parent_properties        = options.fetch(:parent_key)
-        @child_properties         = options.fetch(:child_key)
-        @mutable                  = options.delete(:mutable) || false
-
-        @name        = near_relationship.name
-        @query       = options.reject{ |key,val| OPTIONS.include?(key) }
-        @extra_links = []
-        @options     = options
-      end
-
-      # @api private
-      def near_relationship
-        parent_model.relationships[@near_relationship_name]
-      end
-
-      # @api private
-      def links
-        if remote_relationship.kind_of?(RelationshipChain)
-          remote_relationship.send(:links) + [ remote_relationship.send(:near_relationship) ]
-        else
-          [ remote_relationship ]
-        end
-      end
-
-      # @api private
-      def remote_relationship
-        near_relationship.child_model.relationships[@remote_relationship_name] ||
-          near_relationship.child_model.relationships[@remote_relationship_name.to_s.singularize.to_sym]
-      end
-
-      # @api private
-      def grandchild_model
-        Class === @child_model ? @child_model : (Class === @parent_model ? @parent_model.find_const(@child_model) : Object.find_const(@child_model))
-      end
-    end # class Relationship
-  end # module Associations
-end # module DataMapper

data/lib/dm-core/associations.rb

@@ -1,207 +0,0 @@
-dir = Pathname(__FILE__).dirname.expand_path / 'associations'
-
-require dir / 'relationship'
-require dir / 'relationship_chain'
-require dir / 'many_to_many'
-require dir / 'many_to_one'
-require dir / 'one_to_many'
-require dir / 'one_to_one'
-
-module DataMapper
-  module Associations
-    include Assertions
-
-    class ImmutableAssociationError < RuntimeError
-    end
-
-    class UnsavedParentError < RuntimeError
-    end
-
-    # Returns all relationships that are many-to-one for this model.
-    #
-    # Used to find the relationships that require properties in any Repository.
-    #
-    # Example:
-    # class Plur
-    #   include DataMapper::Resource
-    #   def self.default_repository_name
-    #     :plur_db
-    #   end
-    #   repository(:plupp_db) do
-    #     has 1, :plupp
-    #   end
-    # end
-    #
-    # This resource has a many-to-one to the Plupp resource residing in the :plupp_db repository,
-    # but the Plur resource needs the plupp_id property no matter what repository itself lives in,
-    # ie we need to create that property when we migrate etc.
-    #
-    # Used in DataMapper::Model.properties_with_subclasses
-    #
-    # @api private
-    def many_to_one_relationships
-      relationships unless @relationships # needs to be initialized!
-      @relationships.values.collect do |rels| rels.values end.flatten.select do |relationship| relationship.child_model == self end
-    end
-
-    def relationships(repository_name = default_repository_name)
-      @relationships ||= {}
-      @relationships[repository_name] ||= repository_name == Repository.default_name ? {} : relationships(Repository.default_name).dup
-    end
-
-    def n
-      1.0/0
-    end
-
-    ##
-    # A shorthand, clear syntax for defining one-to-one, one-to-many and
-    # many-to-many resource relationships.
-    #
-    # @example [Usage]
-    #   * has 1, :friend                          # one friend
-    #   * has n, :friends                         # many friends
-    #   * has 1..3, :friends
-    #                         # many friends (at least 1, at most 3)
-    #   * has 3, :friends
-    #                         # many friends (exactly 3)
-    #   * has 1, :friend, :class_name => 'User'
-    #                         # one friend with the class name User
-    #   * has 3, :friends, :through => :friendships
-    #                         # many friends through the friendships relationship
-    #   * has n, :friendships => :friends
-    #                         # identical to above example
-    #
-    # @param cardinality [Integer, Range, Infinity]
-    #   cardinality that defines the association type and constraints
-    # @param name <Symbol>  the name that the association will be referenced by
-    # @param opts <Hash>    an options hash
-    #
-    # @option :through[Symbol]  A association that this join should go through to form
-    #       a many-to-many association
-    # @option :class_name[String] The name of the class to associate with, if omitted
-    #       then the association name is assumed to match the class name
-    # @option :remote_name[Symbol] In the case of a :through option being present, the
-    #       name of the relationship on the other end of the :through-relationship
-    #       to be linked to this relationship.
-    #
-    # @return [DataMapper::Association::Relationship] the relationship that was
-    #   created to reflect either a one-to-one, one-to-many or many-to-many
-    #   relationship
-    # @raise [ArgumentError] if the cardinality was not understood. Should be a
-    #   Integer, Range or Infinity(n)
-    #
-    # @api public
-    def has(cardinality, name, options = {})
-
-      # NOTE: the reason for this fix is that with the ability to pass in two
-      # hashes into has() there might be instances where people attempt to
-      # pass in the options into the name part and not know why things aren't
-      # working for them.
-      if name.kind_of?(Hash)
-        name_through, through = name.keys.first, name.values.first
-        cardinality_string = cardinality.to_s == 'Infinity' ? 'n' : cardinality.inspect
-        warn("In #{self.name} 'has #{cardinality_string}, #{name_through.inspect} => #{through.inspect}' is deprecated. Use 'has #{cardinality_string}, #{name_through.inspect}, :through => #{through.inspect}' instead")
-      end
-
-      options = options.merge(extract_min_max(cardinality))
-      options = options.merge(extract_throughness(name))
-
-      # do not remove this. There is alot of confusion on people's
-      # part about what the first argument to has() is.  For the record it
-      # is the min cardinality and max cardinality of the association.
-      # simply put, it constraints the number of resources that will be
-      # returned by the association.  It is not, as has been assumed,
-      # the number of results on the left and right hand side of the
-      # reltionship.
-      if options[:min] == n && options[:max] == n
-        raise ArgumentError, 'Cardinality may not be n..n.  The cardinality specifies the min/max number of results from the association', caller
-      end
-
-      klass = options[:max] == 1 ? OneToOne : OneToMany
-      klass = ManyToMany if options[:through] == DataMapper::Resource
-      relationship = klass.setup(options.delete(:name), self, options)
-
-      # Please leave this in - I will release contextual serialization soon
-      # which requires this -- guyvdb
-      # TODO convert this to a hook in the plugin once hooks work on class
-      # methods
-      self.init_has_relationship_for_serialization(relationship) if self.respond_to?(:init_has_relationship_for_serialization)
-
-      relationship
-    end
-
-    ##
-    # A shorthand, clear syntax for defining many-to-one resource relationships.
-    #
-    # @example [Usage]
-    #   * belongs_to :user                          # many_to_one, :friend
-    #   * belongs_to :friend, :class_name => 'User'  # many_to_one :friends
-    #
-    # @param name [Symbol] The name that the association will be referenced by
-    # @see #has
-    #
-    # @return [DataMapper::Association::ManyToOne] The association created
-    #   should not be accessed directly
-    #
-    # @api public
-    def belongs_to(name, options={})
-      @_valid_relations = false
-
-      if options.key?(:class_name) && !options.key?(:child_key)
-        warn "The inferred child_key will changing to be prefixed with the relationship name #{name}. " \
-          "When using :class_name in belongs_to specify the :child_key explicitly to avoid problems." \
-          "#{caller(0)[1]}"
-      end
-
-      relationship = ManyToOne.setup(name, self, options)
-      # Please leave this in - I will release contextual serialization soon
-      # which requires this -- guyvdb
-      # TODO convert this to a hook in the plugin once hooks work on class
-      # methods
-      self.init_belongs_relationship_for_serialization(relationship) if self.respond_to?(:init_belongs_relationship_for_serialization)
-
-      relationship
-    end
-
-    private
-
-    def extract_throughness(name)
-      assert_kind_of 'name', name, Hash, Symbol
-
-      case name
-        when Hash
-          unless name.keys.size == 1
-            raise ArgumentError, "name must have only one key, but had #{name.keys.size}", caller(2)
-          end
-
-          { :name => name.keys.first, :through => name.values.first }
-        when Symbol
-          { :name => name }
-      end
-    end
-
-    # A support method form converting Integer, Range or Infinity values into a
-    # { :min => x, :max => y } hash.
-    #
-    # @api private
-    def extract_min_max(constraints)
-      assert_kind_of 'constraints', constraints, Integer, Range unless constraints == n
-
-      case constraints
-        when Integer
-          { :min => constraints, :max => constraints }
-        when Range
-          if constraints.first > constraints.last
-            raise ArgumentError, "Constraint min (#{constraints.first}) cannot be larger than the max (#{constraints.last})"
-          end
-
-          { :min => constraints.first, :max => constraints.last }
-        when n
-          { :min => 0, :max => n }
-      end
-    end
-  end # module Associations
-
-  Model.append_extensions DataMapper::Associations
-
-end # module DataMapper

data/lib/dm-core/auto_migrations.rb

@@ -1,105 +0,0 @@
-# TODO: move to dm-more/dm-migrations
-
-module DataMapper
-  class AutoMigrator
-    ##
-    # Destructively automigrates the data-store to match the model.
-    # First migrates all models down and then up.
-    # REPEAT: THIS IS DESTRUCTIVE
-    #
-    # @param Symbol repository_name the repository to be migrated
-    def self.auto_migrate(repository_name = nil, *descendants)
-      auto_migrate_down(repository_name, *descendants)
-      auto_migrate_up(repository_name, *descendants)
-    end
-
-    ##
-    # Destructively automigrates the data-store down
-    # REPEAT: THIS IS DESTRUCTIVE
-    #
-    # @param Symbol repository_name the repository to be migrated
-    # @calls DataMapper::Resource#auto_migrate_down!
-    # @api private
-    def self.auto_migrate_down(repository_name = nil, *descendants)
-      descendants = DataMapper::Resource.descendants.to_a if descendants.empty?
-      descendants.reverse.each do |model|
-        model.auto_migrate_down!(repository_name)
-      end
-    end
-
-    ##
-    # Automigrates the data-store up
-    #
-    # @param Symbol repository_name the repository to be migrated
-    # @calls DataMapper::Resource#auto_migrate_up!
-    # @api private
-    def self.auto_migrate_up(repository_name = nil, *descendants)
-      descendants = DataMapper::Resource.descendants.to_a if descendants.empty?
-      descendants.each do |model|
-        model.auto_migrate_up!(repository_name)
-      end
-    end
-
-    ##
-    # Safely migrates the data-store to match the model
-    # preserving data already in the data-store
-    #
-    # @param Symbol repository_name the repository to be migrated
-    # @calls DataMapper::Resource#auto_upgrade!
-    def self.auto_upgrade(repository_name = nil)
-      DataMapper::Resource.descendants.each do |model|
-        model.auto_upgrade!(repository_name)
-      end
-    end
-  end # class AutoMigrator
-
-  module AutoMigrations
-    ##
-    # Destructively automigrates the data-store to match the model
-    # REPEAT: THIS IS DESTRUCTIVE
-    #
-    # @param Symbol repository_name the repository to be migrated
-    def auto_migrate!(repository_name = self.repository_name)
-      auto_migrate_down!(repository_name)
-      auto_migrate_up!(repository_name)
-    end
-
-    ##
-    # Destructively migrates the data-store down, which basically
-    # deletes all the models.
-    # REPEAT: THIS IS DESTRUCTIVE
-    #
-    # @param Symbol repository_name the repository to be migrated
-    # @api private
-    def auto_migrate_down!(repository_name = self.repository_name)
-      # repository_name ||= default_repository_name
-      repository(repository_name) do |r|
-        r.adapter.destroy_model_storage(r, self.base_model)
-      end
-    end
-
-    ##
-    # Auto migrates the data-store to match the model
-    #
-    # @param Symbol repository_name the repository to be migrated
-    # @api private
-    def auto_migrate_up!(repository_name = self.repository_name)
-      repository(repository_name) do |r|
-        r.adapter.create_model_storage(r, self.base_model)
-      end
-    end
-
-    ##
-    # Safely migrates the data-store to match the model
-    # preserving data already in the data-store
-    #
-    # @param Symbol repository_name the repository to be migrated
-    def auto_upgrade!(repository_name = self.repository_name)
-      repository(repository_name) do |r|
-        r.adapter.upgrade_model_storage(r, self)
-      end
-    end
-
-    Model.send(:include, self)
-  end # module AutoMigrations
-end # module DataMapper

data/lib/dm-core/dependency_queue.rb

@@ -1,32 +0,0 @@
-module DataMapper
-  ##
-  #
-  # DataMapper's DependencyQueue is used to store callbacks for classes which
-  # may or may not be loaded already.
-  #
-  class DependencyQueue
-    def initialize
-      @dependencies = {}
-    end
-
-    def add(class_name, &callback)
-      @dependencies[class_name] ||= []
-      @dependencies[class_name] << callback
-      resolve!
-    end
-
-    def resolve!
-      @dependencies.each do |class_name, callbacks|
-        begin
-          klass = Object.find_const(class_name)
-          callbacks.each do |callback|
-            callback.call(klass)
-          end
-          callbacks.clear
-        rescue NameError
-        end
-      end
-    end
-
-  end # class DependencyQueue
-end # module DataMapper

data/lib/dm-core/hook.rb

@@ -1,11 +0,0 @@
-module DataMapper
-  module Hook
-    def self.included(model)
-      model.class_eval <<-EOS, __FILE__, __LINE__
-        include Extlib::Hook
-        register_instance_hooks :save, :create, :update, :destroy
-      EOS
-    end
-  end
-  DataMapper::Resource.append_inclusions Hook
-end # module DataMapper