class Module
# Declare an attribute accessor with an initial default return value.
#
# To give attribute <tt>:age</tt> the initial value <tt>25</tt>:
# 
#   class Person
#     attr_accessor_with_default :age, 25
#   end
#
#   some_person.age
#   => 25
#   some_person.age = 26
#   some_person.age
#   => 26
#
# To give attribute <tt>:element_name</tt> a dynamic default value, evaluated
# in scope of self:
#
#   attr_accessor_with_default(:element_name) { name.underscore }
#
def attr_accessor_with_default(sym, default = nil, &block)
raise 'Default value or block required' unless !default.nil? || block
    define_method(sym, block_given? ? block : Proc.new { default })
module_eval(<<-EVAL, __FILE__, __LINE__)
      def #{sym}=(value)                        # def age=(value)
        class << self; attr_reader :#{sym} end  #   class << self; attr_reader :age end
        @#{sym} = value                         #   @age = value
      end                                       # end
EVAL
end
end

读ActiveSupport代码时看到上面这个方法，即定义有缺省值的属性。看了n遍加上动手注解掉class << self ...这句后终于理解了这个缺省属性的实现方法：

1 define_method(...)定义了一个名为sym的方法，相当于一个读属性，在对象上调用 sym方法时返回default值或者block的返回值

2 在对象上调用#{sym}=方法c时lass << self; attr_reader:#{sym} end先为对象创建一个虚拟类，在该类中用attr_reader覆盖define_method中定义的sym方法，直接返回@{#sym}变量。然后再把value赋给@#{sym}

来看一个例子

require 'active_support'

class NiceGirl

include ActiveSupport

attr_accessor :real_age

attr_accessor_with_default(:age) {real_age}

end

nice_girl = NiceGirl.new

nice_girl.real_age = 18

puts "here calls real_age #{nice_girl.age}"

nice_girl.age = 16

puts "here returns @age #{nice_girl.age}"

puts "here returns real_age #{nice_girl.real_age}"

下面是输出

here calls real_age 18

here returns @age 16

here returns real_age 18

即在调用属性setter时动态改变了属性getter的定义。这种做法的确相当灵活，也只有ruby这种动态语言能做得出来。