Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^3: why is $1 cleared at end of an inline sub? (semantics anonymous vs named subs)

by LanX (Sage)
on Sep 17, 2021 at 21:34 UTC ( #11136852=note: print w/replies, xml ) Need Help??

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.


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/] line 2.

So where do you want to draw the line???


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?

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11136852]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (4)
As of 2021-10-21 12:00 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (83 votes). Check out past polls.