querying the RESTRICT_REFERENCES pragma

How can I programmatically find out if a package procedure i开发者_如何学Gos flagged with any of the RESTRICT_REFERENCES pragmas (WNDS, WDPS, RNDS...)?

---

The only way I can tell is to query the package source code, e.g.:

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

Not totally reliable (this won't pick it up if the pragma definition is split across multiple lines or has an extra space or something).