model_extensions.rb

module DataMapper

  module SsbeQueryExtensions

    def self.extended(base)
      (class << base; self; end).send(:attr_accessor, :collection_uri)
    end
  end

  module SsbeModelExtensions

    attr_reader :service_type, :resource_name
    attr_accessor :resource

    def set_service_type(service_type)
      @service_type = service_type
    end

    def set_resource_name(name)
      @resource_name = name
    end

    attr_reader :collection_uri
    def collection(uri, query = {})
      query = Query.new(self.repository, self)
      query.extend(SsbeQueryExtensions)
      query.collection_uri = uri
      puts query.object_id

      repository.read_many(query)
    end

  end

  Model.send(:include, SsbeModelExtensions)

end