Don't know why this works. Notice the debug proc is present two times.
create or replace package body test_pkg as
g_debug BOOLEAN := TRUE;
PROCEDURE debug (p_text IN VARCHAR2);
procedure xyz(
pi_num in number
)
as
begin
null;
end xyz;
PROCEDURE debug (p_text IN VARCHAR2) IS
BEGIN
IF g_debug THEN
DBMS_OUTPUT.put_line(SUBSTR(p_text, 1, 255));
END IF;
END;
end test_pkg;
Don't know why this works. Notice the
debugproc is present two times.