Reflection.getMethodsByAnnotation

Reflection.getMethodsByAnnotation( oObj,cAnnotationName )

#INCLUDE "MsObject.CH"

NAMESPACE TesteReflection
MAIN FUNCTION Teste()
  ClasseTeste():New()
RETURN

@annotation AnnotationMethod
    property1 as char
@end

@annotation AnnotationClass
    property1 as char
@end

@AnnotationClass("testeClass")
class ClasseUm

	public method New()

	@AnnotationMethod("testeMethod")
	public method testeMethod()

endclass

METHOD NEW() CLASS ClasseUm
return self

method testeMethod() CLASS ClasseUm
	conout("Teste de metodo")
return

CLASS ClasseTeste
  PUBLIC METHOD NEW()
ENDCLASS


METHOD NEW() CLASS ClasseTeste
  
  local classes := {}
  local methods := {}
  local instance
  
  // Pego todas as classes que possuem a annotation "AnnotationClass"
  classes := Reflection.getClassesByAnnotation("AnnotationClass", "TesteReflection.*")
  
  conout(classes[1])
  
  // Instancio um novo objeto desta classe
  instance :=  &(classes [1] + "():New()")
  
  // Pego todos os metodos dentro da classe que possuem a annotation "AnnotationMethod"
  methods := Reflection.getMethodsByAnnotation(instance, "AnnotationMethod")
  
  conout(methods[1])
  
  // Executo o metodo encontrado
  &("instance:" + methods[1] + "()")
  
RETURN self