Oracle的面向对象----类型重载

/*使用Oracle实现面向对象思想*/

/*首先创建类型规范，该规范中包含存储过程重载*/
create or replace type ty_test
is object
(
   x number ,
   member procedure pro_test,
   member procedure pro_test(temp varchar2)  
)
not final;

/*创建类型主体*/
create or replace type body ty_test
is
  member procedure pro_test
  is
   begin
    dbms_output.put_line('aaaa');
   end pro_test;
  member procedure pro_test(temp varchar2)
   is
    begin
      dbms_output.put_line(temp);
    end pro_test; 
end;  

/*调用类型，并输出结果*/
declare
  ty ty_test;
 begin
   ty :=ty_test(5);
   ty.pro_test;
   ty.pro_test('bbb');
   dbms_output.put_line(ty.x);
 end;