Special blocks below the top-level scope

Hi all,

an interesting edge case I ran into in the course of looking at
the issue of labels named `BEGIN` etc is this:

    sub foo { my $foo; BEGIN { $foo = 1 } return $foo || '' }
    print "[$_]" for foo(), foo(), foo();

    =begin output

     [1]
     []
     []

I’m sure Abigail can find a use for this :-), but is it a regular
feature, an accidental one, or something else?

-- 
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle Pagaltzis // <http://plasmasturm.org/>

• Special blocks below the top-level scope by Aristotle Pagaltzis
• Re: Special blocks below the top-level scope by Nicholas Clark
• Re: Special blocks below the top-level scope by Aristotle Pagaltzis
• Re: Special blocks below the top-level scope by Abigail
• RE: Special blocks below the top-level scope by Jan Dubois