*test = sub { 1 };
my $code = \&test;

print "taulmarill says: " . B::svref_2object($code)->GV->NAME . "\n";

use B;
my $class = B::svref_2object($code)->STASH->NAME;
my $name  = '';
for my $sym ( values %{ $class . '::' } ) {
    if ( *{$sym}{CODE} && *{$sym}{CODE} == $code ) {
        $name = *{$sym}{NAME};
    }
}
print "sri says: $name\n";