UNIVERSAL::isa($hoge, 'Huga') を使うべきではない - daily dayflower

ことの理由と出典をいつも忘れてしまうので，メモメモ。 if ($obj->isa('Huga')) { ...... } みたいなコードはよく使うんですが，$obj が bless されたオブジェクト（か，クラス名の文字列スカラー）じゃないとエラーを吐くので，一時期，以下のように書いてました。 if (UNIVERSAL::isa($obj, 'Huga')) { ...... } でもそれはイカーン，とどこかで読んだような気がして探してたら，「続・初めてのPerl 改訂版」の「14.2 オブジェクトの動作に関するテスト（pp.186-188）」に書いてありました。 しかし，これではオブジェクト指向メカニズムを否定することになり，それはそれで問題を起こします（→脚注）。 脚注 特に，Animal がカスタムの isa メソッドを持つ場合（中略），UNIVERSAL::isa を呼び出してし

[studio-m]

UNIVERSAL::isaより eval { $obj->isa('Hoge') }

[ku0522]

if (eval { $obj->isa('Hoge') } ) {

[fbis]

逆にカスタムのisaが呼ばれて欲しくないときにUNIVERSAL::isa使うといいのかな。