in reply to Re^2: why is $1 cleared at end of an inline sub?
in thread why is $1 cleared at end of an inline sub?
consider
DB<7> *beyonce = sub { print "say my name, say my name" } DB<8> beyonce() say my name, say my name DB<9>
this also works the other way round, you can read the sub-ref of a named sub and than destroy the name in the packages STASH:
DB<21> sub kelly { print "say my name, say my name" } DB<22> $anosub = \&kelly DB<23> delete $main::{kelly} DB<24> $anosub->() say my name, say my name DB<25> kelly() Undefined subroutine &main::kelly called at (eval 34)[c:/Strawberry/pe +rl/lib/perl5db.pl:738] line 2.
So where do you want to draw the line???
side-note
there are though block-compounds in Perl which can be confused with anonymous subs.
Maybe that's your misunderstanding, if you talk about "inlined subs" °?
for instance map-blocks are not ano-subs effecting return
DB<19> sub tst { map { return $_ } 42..1e6 ; return "never executed" + } DB<20> p tst() 42 DB<21>
But those map-like constructs in List::Util are implemented with ano-subs and won't allow returning from outer subs!
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
°) what does that even mean?