Event Handler Method in ABAP OOPs

REPORT  zcl_oops_test.

*----------------------------------------------------------------------*
*       CLASS cl_event DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_event DEFINITION.

  PUBLIC SECTION.
    EVENTS: e1.
    METHODS: m1 FOR EVENT e1 OF cl_event.
    METHODS: t1.

ENDCLASS.                    "cl_event DEFINITION

*----------------------------------------------------------------------*
*       CLASS cl_event IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_event IMPLEMENTATION.
  METHOD m1.
    WRITE:/ 'Event Handler Method' .

  ENDMETHOD.                    "m1
  METHOD t1.
    WRITE:/ 'Trigger the Event'.
    RAISE EVENT e1.
  ENDMETHOD.                    "t1

ENDCLASS.                    "cl_event IMPLEMENTATION

START-OF-SELECTION.
  DATA: obj1 TYPE REF TO cl_event.
  CREATE OBJECT obj1.

  SET HANDLER obj1->m1 FOR obj1.

  CALL METHOD obj1->t1.

Output