Select Code to Download

sub xx { shift() + 1 }
say \&xx(3);                        # SCALAR(0x60003b660)
say ${ \&xx(3) };                   # 4
say sub { \&xx(shift) }->(3);       # SCALAR(0x60003b888)
say ${ sub { \&xx(shift) }->(3) };  # 4

say xx(3);                   # 4
say sub { xx(shift) }->(3);  # 4

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,