in reply to Getting the name of sub from sub reference

Why not just let Perl tell you? 

if( !defined &$c ){ 
    eval{ $c->() }; 
    print $@ 
};;
Undefined subroutine &main::test1 called at (eval 19) line 1, <STDIN> 
+line 14.

[download]
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
RIP an inspiration; A true Folk's Guy

In Section Seekers of Perl Wisdom