anchor.diff:          !is_progdir TYPE ty_progdir
         RAISING
           zcx_abapgit_exception .
  -    METHODS insert_tpool
  -      IMPORTING
  -        !is_progdir TYPE ty_progdir
  -        !it_tpool   TYPE textpool_table
  -      RAISING
  -        zcx_abapgit_exception .
   ENDCLASS.
   
   
   
  -CLASS ZCL_ABAPGIT_OBJECTS_PROGRAM IMPLEMENTATION.
  +CLASS zcl_abapgit_objects_program IMPLEMENTATION.
   
   
     METHOD add_tpool.
  
positive.code:         iv_package = iv_package ).
      ENDIF.
  
      insert_tpool(
        is_progdir = is_progdir
        it_tpool   = it_tpool ).
  
      update_progdir( is_progdir ).
  
      zcl_abapgit_objects_activation=>add(
  
negative.code: 
      ELSEIF sy-subrc > 0.
        zcx_abapgit_exception=>raise_t100( ).
      ENDIF.
  
    ENDMETHOD.
  