Re^3: recursive anonymous subroutines

[TedYoung]

OK, I found a way, but you won't like it! :-)
Use $DB::sub->() but you have to run it under the perl debuger (perl -d):

sub { print 'A'; $DB::sub->() }->();

[diotalevi]

That only works when the debugger is enabled. For general use, see Devel::Caller.