note description: "[ Author of feed or feed entry. - name and email information. ]" date: "$Date$" revision: "$Revision$" class FEED_AUTHOR create make feature {NONE} -- Initialization make (a_name: READABLE_STRING_GENERAL) do create name.make_from_string_general (a_name) end feature -- Access name: IMMUTABLE_STRING_32 email: detachable READABLE_STRING_8 feature -- Element change set_email (a_email: detachable READABLE_STRING_GENERAL) do if a_email = Void then email := Void elseif a_email.is_valid_as_string_8 then email := a_email.as_string_8 else email := Void end end feature -- Visitor accept (vis: FEED_VISITOR) do vis.visit_author (Current) end end