查询RESTRICT_REFERENCES pragma

Question

如何以编程方式查明是否使用任何RESTRICT_REFERENCES编译指示（WNDS，WDPS，RNDS ...）标记了包过程？

Answer 1

我能告诉的唯一方法是查询包源代码，例如：

select text from all_source
where UPPER(text) like '%PRAGMA RESTRICT_REFERENCES%'
and owner = :owner
and name = :package_name
and type = 'PACKAGE';

不完全可靠（如果pragma定义分为多行或者有额外的空格或其他内容，则不会选择它。）