Merge pull request #12 from sbcgua/setx

setx feature

Author: sbcgua

README.md

@@ -39,6 +39,12 @@ lo_map->set(
   iv_val = '2' ).
 ```
 
+- there is also `setx` - a more readable yet not so strict version of `set`. Can be useful for multiple sets in a raw.
+
+```abap
+lo_map->setx( 'A:1' )->setx( |B : { '2' }| ).
+```
+
 - implements `keys`, `values`
 
 ```abap

changelog.txt

@@ -11,6 +11,7 @@ Legend
 v1.0.4, 2024-06-24
 ------------------
 + to_entries - saves entries to a standard table with 2 char-like components (#11)
++ setx - simplified and more readable version of set (#12)
 
 v1.0.3, 2021-07-25
 ------------------

src/zcl_abap_string_map.clas.abap

@@ -49,6 +49,11 @@ class zcl_abap_string_map definition
         !iv_val type clike
       returning
         value(ro_map) type ref to zcl_abap_string_map.
+    methods setx
+      importing
+        !iv_str type csequence
+      returning
+        value(ro_map) type ref to zcl_abap_string_map.
     methods size
       returning
         value(rv_size) type i.
@@ -383,6 +388,32 @@ CLASS ZCL_ABAP_STRING_MAP IMPLEMENTATION.
   endmethod.
 
 
+  method setx.
+
+    data lv_key type string.
+    data lv_val type string.
+
+    ro_map = me.
+
+    if iv_str is initial.
+      return.
+    endif.
+
+    split iv_str at ':' into lv_key lv_val.
+    condense lv_key.
+    condense lv_val.
+
+    if lv_key is initial.
+      return.
+    endif.
+
+    set(
+      iv_key = lv_key
+      iv_val = lv_val ).
+
+  endmethod.
+
+
   method size.
 
     rv_size = lines( mt_entries ).

src/zcl_abap_string_map.clas.testclasses.abap

@@ -19,6 +19,7 @@ class ltcl_string_map definition
     methods keys_values for testing.
     methods case_insensitive for testing.
     methods set_clike for testing.
+    methods setx for testing.
 
     methods strict for testing.
     methods freeze for testing.
@@ -927,4 +928,27 @@ class ltcl_string_map implementation.
 
   endmethod.
 
+  method setx.
+
+    data lo_cut type ref to zcl_abap_string_map.
+
+    lo_cut = zcl_abap_string_map=>create( ).
+
+    lo_cut->setx( 'a:1' ).
+    lo_cut->setx( |b : 2| ).
+    lo_cut->setx( ':c' ).
+    lo_cut->setx( '' ).
+
+    cl_abap_unit_assert=>assert_equals(
+      exp = 2
+      act = lo_cut->size( ) ).
+    cl_abap_unit_assert=>assert_equals(
+      exp = lo_cut->get( 'a' )
+      act = '1' ).
+    cl_abap_unit_assert=>assert_equals(
+      exp = lo_cut->get( 'b' )
+      act = '2' ).
+
+  endmethod.
+
 endclass.