Re^2: recursive anonymous subroutines

Replies are listed 'Best First'.
Re^3: recursive anonymous subroutines by TedYoung (Deacon) on Apr 06, 2006 at 20:19 UTC
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->() }->();` [download] Ted Young `($$<<$$=>$$<=>$$<=$$>>$$) always returns 1. :-)`	[reply] [d/l] [select]
Re^4: recursive anonymous subroutines by diotalevi (Canon) on Apr 06, 2006 at 20:52 UTC
That only works when the debugger is enabled. For general use, see Devel::Caller. ⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊	[reply]
Re^3: recursive anonymous subroutines by chromatic (Archbishop) on Apr 07, 2006 at 07:18 UTC
I'd write a little very scary, very hairy XS code. I don't know which of three or four approaches would work best, but I'd start by poking around `PL_curcop`.	[reply] [d/l]
Re^4: recursive anonymous subroutines by DrHyde (Prior) on Apr 10, 2006 at 09:41 UTC
Surely the best approach is to not write the scary hairy XS code and just accept that you'll have to use a variable. It's not like variables kill babies or anything.	[reply]