Select Code to Download

# (a) could change entirely if run multiple times
( rand < .5 ? $a : $b ) = ( rand < .5 ? $a : $b );

...
# (a) might have side effects
tie $a, ...;
($a) = $a || foo();

perl -MO=Concise -e '($a) ||= foo()' | idealized-optree

leave
...
            entersub # foo()
                  pushmark
                     gv # *foo