anchor.diff:              struct_decode( EXPORTING iv_string = getdata
                              CHANGING cg_structure = ls_repo ).
               pull( ls_repo ).
  +          WHEN 'debug'.
  +            lcl_debug=>debug_toggle( ).
             WHEN OTHERS.
               _raise 'Unknown action'.
           ENDCASE.
         CATCH lcx_exception INTO lx_exception.
  +        IF lcl_debug=>get_debug( ) = abap_true.
  +          view( render_header( ) &&
  +            lcl_debug=>get_html( ) &&
  +            render_footer( ) ).
  +        ENDIF.
           MESSAGE lx_exception->mv_text TYPE 'S' DISPLAY LIKE 'E'.
       ENDTRY.
   
  
positive.code:       ENDLOOP.
      ENDIF.
  
      rv_html = rv_html && render_footer( ).
  
    ENDMETHOD.                    "render
  
  
negative.code: 
  ENDCLASS.                    "lcl_xml IMPLEMENTATION
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_debug DEFINITION
  *----------------------------------------------------------------------*
  *
  *----------------------------------------------------------------------*
  CLASS lcl_debug DEFINITION FINAL.
  
    PUBLIC SECTION.
      CLASS-METHODS: debug_toggle.
  
      CLASS-METHODS: render_objects IMPORTING iv_message TYPE string
                                              it_objects TYPE tt_objects.
  
      CLASS-METHODS: get_html RETURNING value(rv_html) TYPE string.
  
      CLASS-METHODS: get_debug RETURNING value(rv_debug) TYPE abap_bool.
  
      CLASS-METHODS: clear.
  
    PRIVATE SECTION.
      CLASS-DATA: gv_debug TYPE abap_bool VALUE abap_false,
                  gv_html  TYPE string.
  
  ENDCLASS.                    "lcl_debug DEFINITION
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_debug IMPLEMENTATION
  *----------------------------------------------------------------------*
  *
  *----------------------------------------------------------------------*
  CLASS lcl_debug IMPLEMENTATION.
  
    METHOD get_debug.
      rv_debug = gv_debug.
    ENDMETHOD.                    "get_debug
  
    METHOD get_html.
      rv_html = gv_html.
    ENDMETHOD.                    "get_html
  
    METHOD render_objects.
  
      FIELD-SYMBOLS: <ls_object> LIKE LINE OF it_objects.
  
  
      IF gv_debug = abap_false.
        RETURN.
      ENDIF.
  
      gv_html = gv_html &&
                '<br>' &&
                iv_message &&
                '<br>'.
  
      LOOP AT it_objects ASSIGNING <ls_object>.
  * todo
      ENDLOOP.
  
    ENDMETHOD.                    "render_objects
  
    METHOD clear.
  
      gv_html = '<h2>Debug Information</h2>'.
  
    ENDMETHOD.                    "clear
  
    METHOD debug_toggle.
  
      CASE gv_debug.
        WHEN abap_true.
          gv_debug = abap_false.
          MESSAGE 'Debug mode disabled' TYPE 'S'.             "#EC NOTEXT
        WHEN abap_false.
          gv_debug = abap_true.
          MESSAGE 'Debug mode enabled' TYPE 'S'.              "#EC NOTEXT
          clear( ).
        WHEN OTHERS.
          ASSERT 1 = 1 + 1.
      ENDCASE.
  
    ENDMETHOD.                    "debug_toggle
  
  ENDCLASS.                    "lcl_debug IMPLEMENTATION
  
  *----------------------------------------------------------------------*
  *       CLASS lcl_time DEFINITION
  