anchor.diff:    METHOD class_name.
   
       CONCATENATE 'LCL_OBJECT_' is_item-obj_type INTO rv_class_name. "#EC NOTEXT
  -    IF rv_class_name = 'LCL_OBJECT_INTF'.
  -      rv_class_name = 'LCL_OBJECT_CLAS'.
  -    ENDIF.
   
     ENDMETHOD.                    "class_name
   
  
positive.code: *----------------------------------------------------------------------*
  *
  *----------------------------------------------------------------------*
  CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_super FINAL.
  
    PUBLIC SECTION.
      INTERFACES lif_object.
  
negative.code:       CHANGING ct_source TYPE ty_string_tt.
  
  ENDCLASS.                    "lcl_object_dtel DEFINITION
  
  CLASS lcl_object_intf DEFINITION INHERITING FROM lcl_object_clas.
  * todo, CLAS + INTF to be refactored, see:
  * https://github.com/larshp/abapGit/issues/21
  ENDCLASS.
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_object_dtel IMPLEMENTATION
  