请问包怎么付权限

请问包怎么付权限才可以，但是我给了DEBUG ，EXECUTE 还是看不到包体，那位大虾有什么高见啊。

1、如果只想授予一个用户对一个包的执行权限，但不能查看包体：
grant execute on 包名 to 用户名;

2、如果想授予一个用户所有包的执行权限，并且能查看包体，但不能修改编译：
grant create any procedure,select any table,execute any procedure to 用户名;