use B;
sub codename {
    my $coderef = shift;
    return unless ref $coderef eq 'CODE';
    my $cv = B::svref_2object($coderef);
    return $cv->GV->NAME;
}

##</code><code>##

use Sub::Identify qw(sub_name);
sub foo {}
print sub_name(\&foo);