my($ret) ||= foo();

##</code><code>##

    my($ret) = $ret || foo();