class RDoc::AnyMethod

def add_alias an_alias, context = nil
  method = self.class.new an_alias.text, an_alias.new_name
  method.record_location an_alias.file
  method.singleton = self.singleton
  method.params = self.params
  method.visibility = self.visibility
  method.comment = an_alias.comment
  method.is_alias_for = self
  @aliases << method
  context.add_method method if context
  method
end