Perl Quiz - package名について

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)

皆さん解答ありがとうございます！意外なやり方もいくつかあって驚きました。
あとで詳しく紹介＆解説したいのですが，今は定期演奏会やら学祭やらで忙しいので，また後ほど。