Q.以下のテストケースが失敗するようなf()を書いてください。ただし,ライブラリを使用してはいけません。回答は一週間後くらいに。 #!perl -w use strict; use Test::More 'no_plan'; sub f{ # 何かする } f(); is ref(bless({}, 'Foo')), 'Foo'; __END__ sv_derived_from()を刻んでいるうちに見つけたちょっと変な挙動です。 2008/10/08 追記 (現トラックバック数:7) 皆さん解答ありがとうございます!意外なやり方もいくつかあって驚きました。 あとで詳しく紹介&解説したいのですが,今は定期演奏会やら学祭やらで忙しいので,また後ほど。