In the case of a named subroutine one is able to get the code-ref of the caller by inspecting the STASH.

But this doesn't work with anonymous subs.

Caller claims they are part of the stash (here main::__ANON__ ) but accessing the associated code-ref fails. It most likely a newly autovivificated code-ref.

Any better way to get the callers code-ref?

First the output

CURRENT SUB: CODE(0x24c9198)
main::upper CODE(0x24c9198)
CURRENT SUB: CODE(0x24e8568)
main::__ANON__ CODE(0x24c0580)  # <--- OOPS
[download]

Here the demo:

use strict;
use warnings;
use Data::Dump qw/pp dd/;
use feature "current_sub","say";

sub lower {
    my %caller;
    package DB {
        @caller{ qw/
                       package   filename line       subroutine hasarg
+s
                       wantarray evaltext is_require hints      bitmas
+k
                       hinthash
                   /
               } = caller(1);
    };

    my $caller_name = $caller{subroutine};
    my $caller_ref =\&{$caller_name};;

    say $caller_name," ",$caller_ref;
}



# --- normal
sub upper {
    say "CURRENT SUB: ",__SUB__;
    lower( "UPPER" );
}

upper();

# --- ano sub
my $ano = sub {
    say "CURRENT SUB: ",__SUB__;
    lower("ANNO");
};

$ano->();
[download]