SQL> conn hr/xs2 as sysdba
Connected.
SQL> create type food_t AS OBJECT
  2  ( name VARCHAR2(100),
  3  food_group VARCHAR2 (100),
  4  grown_in VARCHAR2 (100),
  5  MEMBER PROCEDURE who_are_you,
  6  MEMBER FUNCTION how_much RETURN INTEGER );
  7  /

Type created.

SQL> set serveroutput on




SQL> DECLARE
    my_favorite_vegetable food_t := food_t ('ispanak','sebze','Mersin,Urfa');
    BEGIN
   DBMS_OUTPUT.put_line(my_favorite_vegetable.name);
    my_favorite_vegetable.food_group := 'saglikli';
    IF INSTR(
    my_favorite_vegetable.grown_in,
     'Mersin')>0
     THEN
    NULL;
    END IF;
	   DBMS_OUTPUT.put_line(my_favorite_vegetable.who_are_you());
    END;
    /
ispanak

PL/SQL procedure successfully completed.

 create or replace procedure who_are_you
 IS
 BEGIN
 DBMS_OUTPUT.put_line('asas');
 END;
 /