Perl Quiz - package名について - Islands in the byte stream (legacy)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) 皆さん解答ありがとうございます！意外なやり方もいくつかあって驚きました。 あとで詳しく紹介＆解説したいのですが，今は定期演奏会やら学祭やらで忙しいので，また後ほど。
Asteroid to be harmless fireball over Earth - CNN.com
Center for NEO Studies
Small Asteroid On Collision Course With Earth - Slashdot
