$P::x ||= (f(),1);

##</code><code>##

$P::x = $P::x || (f(),1);