See for example Sub::Name.

I thought there was a special variable to set the name of the current subroutine, but I don't find it. So Sub::Name is the most likely candidate here.

Excellent, thanks!

(I looked at the XS source of that module - wow, that looks extremely complicated.)

Also have a look at Sub::Util (set_subname()) which is included with Perl since v5.21.4.

A new module, Sub::Util, has been added, containing functions related to CODE refs, including subname (inspired by Sub::Identity) and set_subname (copied and renamed from Sub::Name). …

edit

see "Hack #57"

No XS needed:

use strict;
use warnings;
use Carp;


sub generate {
    my ( $name ) = @_ ;

    return sub {
        local *__ANON__ = $name              # M A G I C
          if $name;
        carp "***sub called***";
    }
}


sub super {
    my $not_named = generate();

    $not_named->();


    my $named = generate('HulaHoop');

    $named->();
}

super();
[download]

-*- mode: compilation; default-directory: "d:/tmp/pm/" -*-
Compilation started at Fri Nov 19 21:13:52

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/name_anno_sub.pl 
***sub called*** at d:/tmp/pm/name_anno_sub.pl line 12.
    main::__ANON__() called at d:/tmp/pm/name_anno_sub.pl line 20
    main::super() called at d:/tmp/pm/name_anno_sub.pl line 28
***sub called*** at d:/tmp/pm/name_anno_sub.pl line 12.
    main::HulaHoop() called at d:/tmp/pm/name_anno_sub.pl line 25
    main::super() called at d:/tmp/pm/name_anno_sub.pl line 28

Compilation finished at Fri Nov 19 21:13:53
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery}

This is inferior to Sub::Name for two reasons:

• you have to put the magic line inside the anon sub
• all other anon subs down the call stack are renamed too, which is misleading

use strict;
use warnings;
use Carp;

sub foo {
    my $bar = sub {
        carp "*** inner anon sub called***";
    };
    $bar->();
}

sub generate {
    my ( $name ) = @_ ;

    return sub {
        local *__ANON__ = $name
          if $name;
        carp "***sub called***";
        foo();
    }
}

sub super {
    my $not_named = generate();
    $not_named->();

    my $named = generate('HulaHoop');
    $named->();
}

super();
[download]

Still, it's good to know that it's possible to do it in pure perl.

my sub name { }