Reflection - GetData e GetMethods

#include "protheus.ch"

class TesteReflection
 public method new()
 public method new2()
 public method new3()
 public data data1
 public data data2
 public data data3
endclass
 
 
method new() class TesteReflection
return self

method new2() class TesteReflection
return self

method new3() class TesteReflection
return self

 
main function TTECI_204
	local i
	local retMethods := TesteReflection():GetMethods()
	local retData := TesteReflection():GetData()
	conout("methods")
	conout(retMethods[1])
	conout(retMethods[2])
	conout(retMethods[3])
	conout("data")
	conout(retData[1])
	conout(retData[2])
	conout(retData[3])
return