mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 04:36:49 +08:00
31 lines
967 B
ABAP
31 lines
967 B
ABAP
*&---------------------------------------------------------------------*
|
|
*& Include zabapgit_object_oo_factory
|
|
*&---------------------------------------------------------------------*
|
|
CLASS lcl_oo_factory IMPLEMENTATION.
|
|
METHOD make.
|
|
IF go_object_oriented_object IS BOUND.
|
|
ro_object_oriented_object = go_object_oriented_object.
|
|
RETURN.
|
|
ENDIF.
|
|
IF iv_object_type = 'CLAS'.
|
|
CREATE OBJECT ro_object_oriented_object TYPE lcl_oo_class.
|
|
ELSEIF iv_object_type = 'INTF'.
|
|
CREATE OBJECT ro_object_oriented_object TYPE lcl_oo_interface.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|
|
|
|
CLASS ltcl_oo_factory_injector DEFINITION FOR TESTING.
|
|
PUBLIC SECTION.
|
|
CLASS-METHODS:
|
|
inject
|
|
IMPORTING
|
|
io_object_oriented_object TYPE REF TO lif_oo_object_fnc.
|
|
ENDCLASS.
|
|
|
|
CLASS ltcl_oo_factory_injector IMPLEMENTATION.
|
|
METHOD inject.
|
|
lcl_oo_factory=>go_object_oriented_object = io_object_oriented_object.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|