class Dry::Schema::Key

def self.[](name, **opts)
  new(name, **opts)
end

def self.new(*args)
  fetch_or_store(*args) { super }
end

def coerced_name
  @__coerced_name__ ||= coercer[name]
end

def coercible(&coercer)
  new(coercer: coercer)
end

def dump
  name
end

def initialize(id, name: id, coercer: DEFAULT_COERCER)
  @id = id
  @name = name
  @coercer = coercer
end

def new(new_opts = EMPTY_HASH)
  self.class.new(id, { name: name, coercer: coercer }.merge(new_opts))
end

def read(source)
  return unless source.is_a?(::Hash)
  if source.key?(name)
    yield(source[name])
  elsif source.key?(coerced_name)
    yield(source[coerced_name])
  end
end

def stringified
  new(name: name.to_s)
end

def write(source, target)
  read(source) { |value| target[coerced_name] = value }
end