# ---------------------------------------------------------

sub GetMyMemoryMap {
	# --- returns hash:
	#     { <nameWSigil> => {
	#          Shared => <is_shared>,
	#          Size => <nBytes>,
	#          }}

require Devel::Size;
require threads::shared;

return {
	'$hUserInfo' => {
		Shared => threads::shared::is_shared($hUserInfo),
		Size => Devel::Size::total_size($hUserInfo),
		}
	};
} # GetMyMemoryMap()

# ----------------------------------------------------------