anchor.diff:      METHODS:
         refresh REDEFINITION,
         constructor
  -        IMPORTING iv_key  TYPE ty_key
  -                  is_data TYPE lcl_persistence_repo=>ty_repo
  +        IMPORTING is_data TYPE lcl_persistence_repo=>ty_repo
           RAISING   lcx_exception,
         get_url
           RETURNING VALUE(rv_url) TYPE lcl_persistence_repo=>ty_repo-url,
  
positive.code:   ENDMETHOD.
  
    METHOD to_xml.
      CALL TRANSFORMATION id
        SOURCE (c_type_repo) = is_repo
        RESULT XML rv_repo_xml_string.
    ENDMETHOD.
  
    METHOD url_to_id.
  
      DATA: lt_content TYPE lcl_persistence_db=>tt_content,
            ls_content LIKE LINE OF lt_content,
            ls_repo    TYPE ty_repo.
  
  
      lt_content = mo_db->list_by_type( c_type_repo ).
  
      LOOP AT lt_content INTO ls_content.
        ls_repo = from_xml( ls_content-data_str ).
        IF ls_repo-url = iv_url.
          rv_id = ls_content-value.
          RETURN.
        ENDIF.
      ENDLOOP.
  
      _raise 'Repo, error finding id for url'.
  
    ENDMETHOD.
  
    METHOD constructor.
  
negative.code:       RETURNING VALUE(rv_next_repo_id) TYPE lcl_persistence_db=>ty_content-value
        RAISING   lcx_exception.
  
  ENDCLASS.
  
  *----------------------------------------------------------------------*
  