Sub::Name

gistfile1.pl

#!/usr/bin/env perl
use strict;
use warnings;

package A;
use Carp qw(cluck);
*name = sub { cluck 'no name' };

package B;
use Sub::Name;
use Carp qw(cluck);
*name = subname name_of_sub => sub { cluck 'has name' };

package main;
A::name();
B::name();

__DATA__
$ perl unko.pl
no name at unko.pl line 7
        A::__ANON__() called at unko.pl line 15
has name at unko.pl line 12
        B::name_of_sub() called at unko.pl line 16