Size: a a a
OP
W
INCLUDE_COMMAND: g++ ./xs_gen/*.cpp xs_gen >/dev/null &2>1 && xs_gen Да?AK
AK
AK
c
~ perl -E 'sub f { my $x; say "init once"; *f = sub { $x //= 42; say $x }; goto &f }; f(); f()'
init once
42
42AK
~ perl -E 'sub f { my $x; say "init once"; *f = sub { $x //= 42; say $x }; goto &f }; f(); f()'
init once
42
42AK
AK
c
AK
c
c
~ perl -E 'sub f { my $opts = {a => 42}; eval join ";" => @_}; f(@ARGV)' -- 'say $opts->{a}' '$opts->{b} = "hello"' 'say $opts->{b}'
42
helloVG
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
VG
c
AK
~ perl -E 'sub f { my $opts = {a => 42}; eval join ";" => @_}; f(@ARGV)' -- 'say $opts->{a}' '$opts->{b} = "hello"' 'say $opts->{b}'
42
helloBEGIN {
sub f { eval q<say $x> }
}
my $x = 'hello';
f()SZ
AK