CREATE OR REPLACE PACKAGE BODY X_PKG
IS
--
   FUNCTION f (
      p_parameter IN VARCHAR2) RETURN VARCHAR2 RESULT_CACHE RELIES_ON (sys.dual, sys.dual)
   IS
      l_tmp   VARCHAR2(10);
   BEGIN

      SELECT 'X'
        INTO l_tmp
        FROM dual
       WHERE 1 = 1
      ;

      RETURN l_tmp;
      
   END f;
--
   PROCEDURE p
   IS
   BEGIN
      NULL;
   END p;
--
END X_PKG;

