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 を呼び出してし
perl - 継承を使いたいワケ : 404 Blog Not Found
2006年12月05日09:30 カテゴリLightweight Languages perl - 継承を使いたいワケ おっとっと。というわけで元記事は直したのだけど、あえて継承を使いたかったのにはワケがある。 subtech - Bulknews::Subtech - MobileAgent おしゃれでもないし、そもそもこのコードでは動かない。 無理やりかけばこうなるか。 package MyMobileAgent; my $i; sub new { my $class = shift; my $self = HTTP::MobileAgent->new(@_); my $pkg = __PACKAGE__ . "::". $i++; no strict 'refs'; @{$pkg."::ISA"} = (ref $self, __PACKAGE__); bless $self, $p
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
