sub test { 1 }
my $code = \&test;
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 "Name is $name\n";