Frankly, I get tired of always trying to figure out stuff about subroutines (what's their name, if anonymous? What's their code? What package are they from? etc.). So I bundled all of that up in Sub::Information:

use Sub::Information;
print inspect(\&coderef)->package;
[download]