use B;
sub coderef2name {
   eval {
      my $obj = B::svref_2object( shift() );
      $obj->GV->STASH->NAME . "::" . $obj->GV->NAME;
   } || undef;
}