This is a good script.
One suggested addition would be a 'schemaname' column. When I'm unit testing in Development, I often times have a different version of the stored procedure contained under different schema(s), so I can compare their runtime side by side.
join (select object_id id, schema_name(schema_id)schemaname
from sys.objects) os on os.id = object_id
"Do not seek to follow in the footsteps of the wise. Instead, seek what they sought." - Matsuo Basho