determine if pl/sql code is wrapped or not

select owner||'.'||name from dba_source
where
line=1
and
owner not in ('SYS', 'CTXSYS', 'MDSYS', 'ODM', 'OE', 'OLAPSYS',
'ORDPLUGINS', 'ORDSYS', 'OUTLN', 'PM', 'QS_ADM',
'RMAN', 'SYSTEM', 'WKSYS','WMSYS','XDB')
and
owner not like 'OEM%'
and
text not like '%wrapped%'
and
type in ('PACKAGE BODY','FUNCTION','PROCEDURE');