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

leave
   enter
   nextstate
      orassign # ||=
         gvsv    # << $a
         sassign # scalar =
            entersub # foo()
                  pushmark
                     gv # *foo