I would do it this way:

package My::Plugins::SomePlugin;

use strict;
use warnings;
use Sub::Identify ':all';

sub name {
    my $subname = sub_name(\&myhandler);
    defined $subname 
    and print 
    "$subname\n";
}    

sub myhandler {
    do_something();
}

My::Plugins::SomePlugin::name;
[download]