Select Code to Download

$a=1;
$b=2;
...
    my (0?$a:$b) = 3;
    print "a=$a\nb=$b\n"
}->()

my (0?$a:$b) = 3;
# becomes
BEGIN { create_lexicals(0?$a:$b); } # A
(0?$a:$b) = 3; # B

a=
b=3

$a = 1;
$b = 2;
...
    print "a=$a\nb=$b\n";
}
->();