anchor.diff:          ClassMethod
       end.
   
  +get_destructor(Ref, ClassName) ->
  +    MethodName = <<"__destruct">>,
  +    {ok, #class{methods=Methods}} = get(Ref, ClassName),
  +    case lists:keyfind(MethodName, #class_method.name, Methods) of
  +    false ->
  +        undefined;
  +    #class_method{}=ClassMethod ->
  +        ClassMethod
  +    end.
  +
   get_method(Ref, ClassName, MethodName) ->
       {ok, #class{methods=Methods}} = get(Ref, ClassName),
       case lists:keyfind(MethodName, #class_method.name, Methods) of
  
positive.code: 
      get/2,
      get_constructor/2,
      get_method/3,
  
      register_class/2,
  
negative.code:     #class_method{}=ClassMethod ->
          ClassMethod
      end.
  
  %% ------------------------------------------------------------------
  %% Private functions
  %% ------------------------------------------------------------------
  