note
	description: "Summary description for {EDIT_TASK_DATA}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	UID_DATA

inherit
	JSON_DESERIALIZABLE

create
	 make_from_json

feature

	UID : STRING

convertible_features (a_object: ANY): ARRAY [STRING]
		-- <Precursor>
	once
		Result := <<"UID">>
	end

make_from_json (a_json: STRING)
		-- <Precursor>
	require else											-- This must be here because the ancestor is False.
		True												    --	Leaving it False, will cause this to fail.
	local
		l_object: detachable JSON_OBJECT					        -- You must have one of these because ...
		l_any: detachable ANY
	do
		l_object := json_string_to_json_object (a_json)		-- ... the `a_json' STRING is parsed to a JSON_OBJECT.
		check attached_object: attached l_object end		  -- This proves that our JSON parsing was okay.

		UID := json_object_to_json_string_representation_attached ("UID", l_object)
	end

			metadata_refreshed( a_current: ANY): ARRAY [JSON_METADATA]

			do
				Result := <<
							>>
			end

end
