DouKaku?

WEB+DB 43のRecent Perl Worldを読んで知りました。

変数を初期化するに当たってPerlでは
my $var ||= 'foo';
とかきます。この不備を補うためPerlの5.10には
Defined-or演算子が実装されたそうです。
$zero //= 25;
このような変数のデフォルト設定を行う方法を各種言語ではどうかくのでしょうか。

Squeak Smalltak では変数の初期値が nil なので、nil の場合のみブロックを実行する #ifNil: を適宜コールして初期化などを行ないます。