A monk recently uploaded Sub::Name to CPAN, which does something similiar. You may want to take a peek at how he does it.