require 'active_support/core_ext/object/blank'
require 'active_support/core_ext/array/extract_options'
require 'active_support/core_ext/kernel/singleton_class'
require 'active_support/core_ext/module/remove_method'

class Class
  def superclass_delegating_accessor(name, options = {})
    # Create private _name and _name= methods that can still be used if the public
    # methods are overridden. This allows
    _superclass_delegating_accessor("_#{name}")

    # Generate the public methods name, name=, and name?
    # These methods dispatch to the private _name, and _name= methods, making them
    # overridable
    singleton_class.send(:define_method, name) { send("_#{name}") }
    singleton_class.send(:define_method, "#{name}?") { !!send("_#{name}") }
    singleton_class.send(:define_method, "#{name}=") { |value| send("_#{name}=", value) }

    # If an instance_reader is needed, generate methods for name and name= on the
    # class itself, so instances will be able to see them
    define_method(name) { send("_#{name}") } if options[:instance_reader] != false
    define_method("#{name}?") { !!send("#{name}") } if options[:instance_reader] != false
  end

private

  # Take the object being set and store it in a method. This gives us automatic
  # inheritance behavior, without having to store the object in an instance
  # variable and look up the superclass chain manually.
  def _stash_object_in_method(object, method, instance_reader = true)
    singleton_class.remove_possible_method(method)
    singleton_class.send(:define_method, method) { object }
    remove_possible_method(method)
    define_method(method) { object } if instance_reader
  end

  def _superclass_delegating_accessor(name, options = {})
    singleton_class.send(:define_method, "#{name}=") do |value|
      _stash_object_in_method(value, name, options[:instance_reader] != false)
    end
    send("#{name}=", nil)
  end

end