ABAP 디자인 모델 의 --- "단순 공장 방법 모델 (Simple Factory Method Pattern)"

*&---------------------------------------------------------------------*
*& Report zsimple_factory_method_pattern
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zsimple_factory_method_pattern.

**********************************************************************
* Simple Factory Method Pattern / Creation Method
* 1) Class is defined as CREATE PRIVATE
* 2) CREATE Method is defined as CLASS-METHODS
* 3) As a result, constructor is hidden
**********************************************************************
CLASS lcl_rectangle DEFINITION FINAL CREATE PRIVATE.
  PUBLIC SECTION.
    CLASS-METHODS create
      IMPORTING
        iv_length          TYPE i
        iv_width           TYPE i
      RETURNING
        VALUE(ro_instance) TYPE REF TO lcl_rectangle.

    METHODS get_area_size
      RETURNING
        VALUE(rv_size) TYPE i.

  PRIVATE SECTION.
    METHODS constructor
      IMPORTING
        iv_length TYPE i
        iv_width  TYPE i.

    DATA mv_length TYPE i.
    DATA mv_width TYPE i.
ENDCLASS.

CLASS lcl_rectangle IMPLEMENTATION.
  METHOD constructor.
    mv_length = iv_length.
    mv_width = iv_width.
  ENDMETHOD.

  METHOD create.
    ro_instance = NEW lcl_rectangle( iv_length = iv_length iv_width = iv_width ).
  ENDMETHOD.

  METHOD get_area_size.
    rv_size = mv_length * mv_width.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.

  DATA(lo_rectangle) = lcl_rectangle=>create(  iv_length = 3 iv_width = 2 ).
  DATA(lv_size) = lo_rectangle->get_area_size(  ).
  WRITE |The rectangle size is | && lv_size.