anchor.diff:      #class_method{}=ClassMethod ->
           ClassMethod
       end.
  +
  +%% ------------------------------------------------------------------
  +%% Private functions
  +%% ------------------------------------------------------------------
  
positive.code: 
      get/2,
      get_constructor/2,
      get_method/3,
  
      register_class/2,
  
negative.code:         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
  