class JSON::GenericObject

def [](name)
  __send__(name)
end unless method_defined?(:[])

def []=(name, value)
  __send__("#{name}=", value)
end unless method_defined?(:[]=)

def as_json(*)
  { JSON.create_id => self.class.name }.merge to_hash
end

def dump(obj, *args)
  ::JSON.dump(obj, *args)
end

def from_hash(object)
  case
  when object.respond_to?(:to_hash)
    result = new
    object.to_hash.each do |key, value|
      result[key] = from_hash(value)
    end
    result
  when object.respond_to?(:to_ary)
    object.to_ary.map { |a| from_hash(a) }
  else
    object
  end
end

def json_creatable?
  @json_creatable
end

def json_create(data)
  data = data.dup
  data.delete JSON.create_id
  self[data]
end

def load(source, proc = nil, opts = {})
  result = ::JSON.load(source, proc, opts.merge(:object_class => self))
  result.nil? ? new : result
end

def to_hash
  table
end

def to_json(*a)
  as_json.to_json(*a)
end

def |(other)
  self.class[other.to_hash.merge(to_hash)]
end