module AWS::S3::ACLObject::ClassMethods

def add_xml_child(method_name)
  Core::MetaUtils.class_extend_method(self, :body_xml) do
    xml = super()
    value = send(method_name)
    xml += yield(value) if value
    xml
  end
end