use Sub::Identify qw(stash_name);

print stash_name($obj->can('method_name'));