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: 
      ELSEIF sy-subrc > 0.
        zcx_abapgit_exception=>raise_t100( ).
      ENDIF.
  
    ENDMETHOD.
  
  
    METHOD insert_tpool.
  
      IF NOT it_tpool[] IS INITIAL.
        INSERT TEXTPOOL is_progdir-name
          FROM it_tpool
          LANGUAGE mv_language
          STATE 'I'.
        IF sy-subrc <> 0.
          zcx_abapgit_exception=>raise( 'Error from INSERT TEXTPOOL' ).
        ENDIF.
      ENDIF.
  
    ENDMETHOD.
  
negative.code:         iv_package = iv_package ).
      ENDIF.
  
      update_progdir( is_progdir ).
  
      zcl_abapgit_objects_activation=>add(
  