use Want;

sub fooz : lvalue
{
     defined ($foo_new)?
        $foo_new
        : want_lvalue?
              $foo_new = $foo
              : $foo);
}