def delegate_to_property(aliaz, property)
      ra, wa = property.accessors
      if aliaz == ra then raise MetadataError.new("Cannot delegate #{self} #{aliaz} to itself.") end
      define_method(aliaz) { send(ra) }
      define_method("#{aliaz}=".to_sym) { |value| send(wa, value) }
      register_property_alias(aliaz, property.attribute)
    end
def delegate_to_property(aliaz, property)
      ra, wa = property.accessors
      if aliaz == ra then raise MetadataError.new("Cannot delegate #{self} #{aliaz} to itself.") end
      define_method(aliaz) { send(ra) }
      define_method("#{aliaz}=".to_sym) { |value| send(wa, value) }
      register_property_alias(aliaz, property.attribute)
    end
Defines methods _aliaz_ and _aliaz=_ which calls the standard _attribute_ and
 _attribute=_ accessor methods, resp.
 Calling rather than aliasing the attribute accessor allows the aliaz accessor to
 reflect a change to the attribute accessor.