all_errors helper method for DataMapper 1.2

my_helper.rb

module DataMapper
  module MyHelpers

   def all_errors(seen=[])
      return [] if seen.include?(self)
      seen << self

      res = self.errors
      parent_relationships.each do |relationship|
        association = relationship.get!(self)
        if association.dirty?
          err = association.all_errors(seen)
          res[relationship.name] = err if err.any?
        end
      end
      child_relationships.each do |relationship|
        coll = relationship.get_collection(self)
        if coll.loaded? # We don't think there are errors on unloaded relationships
          coll.each do |association|
            if association.dirty?
              err = association.all_errors(seen)
              (res[relationship.name] ||= []) << err if err.any?
            end
          end
        end
      end
      res
    end

  end
end