I think the OP was more interested in this:

sub foo {
  # do groovy things here
}

my $coderef = \&foo;


my $method_name = mythical_coderef_name_fetcher($coderef);

print $method_name;  # output is 'foo'
[download]

AFAIK there's no way to do this. Any takers?