http://qs321.pair.com?node_id=11136852


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?

"normal subs" are just named "anonymous subs", there is not much more difference.

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?