anchor.diff:  * See http://www.abapgit.org
   
   CONSTANTS: gc_xml_version  TYPE string VALUE 'v1.0.0',      "#EC NOTEXT
  -           gc_abap_version TYPE string VALUE 'v1.4.13'.     "#EC NOTEXT
  +           gc_abap_version TYPE string VALUE 'v1.4.14'.     "#EC NOTEXT
   
   ********************************************************************************
   * The MIT License (MIT)
  
positive.code: ENDCLASS.
  
  CLASS lcl_persistence_user DEFINITION FINAL.
  * todo, refactor this class later? add constructor with
  * iv_user as importing optional parameter
  
    PUBLIC SECTION.
      CLASS-METHODS set_username
        IMPORTING iv_user     TYPE xubname DEFAULT sy-uname
                  iv_username TYPE string
        RAISING   lcx_exception.
  
      CLASS-METHODS get_username
        IMPORTING iv_user            TYPE xubname DEFAULT sy-uname
        RETURNING VALUE(rv_username) TYPE string
        RAISING   lcx_exception.
  
      CLASS-METHODS set_email
        IMPORTING iv_user  TYPE xubname DEFAULT sy-uname
                  iv_email TYPE string
        RAISING   lcx_exception.
  
      CLASS-METHODS get_email
        IMPORTING iv_user         TYPE xubname DEFAULT sy-uname
        RETURNING VALUE(rv_email) TYPE string
        RAISING   lcx_exception.
  
    PRIVATE SECTION.
      CONSTANTS c_type_user TYPE lcl_persistence_db=>ty_type VALUE 'USER'.
  
      TYPES: BEGIN OF ty_user,
               username TYPE string,
               email    TYPE string,
             END OF ty_user.
  
      CLASS-METHODS from_xml
        IMPORTING iv_xml         TYPE string
        RETURNING VALUE(rs_user) TYPE ty_user
        RAISING   lcx_exception.
  
      CLASS-METHODS to_xml
        IMPORTING is_user       TYPE ty_user
        RETURNING VALUE(rv_xml) TYPE string.
  
      CLASS-METHODS read
        IMPORTING iv_user        TYPE xubname
        RETURNING VALUE(rs_user) TYPE ty_user
        RAISING   lcx_exception.
  
      CLASS-METHODS update
        IMPORTING iv_user TYPE xubname
                  is_user TYPE ty_user
        RAISING   lcx_exception.
  
  ENDCLASS.
  
negative.code: 
      mo_files->add_string( iv_extra  = 'source'
                            iv_ext    = 'xml'
                            iv_string = lv_source ).
  
    ENDMETHOD.                    "lif_object~serialize
  
  