While working this code into my module (Devel::Profiler) I've found that prototype($name) isn't very reliable. Sometimes it returns the correct prototype of a constant and sometimes it returns undef. On the other hand, prototype($code) always works.

I find this a bit strange. Maybe this is a bug in Perl (5.6.1)? Or maybe a bug in me? You make the call!

-sam