PerlQuizにこたえてみた

Perl Quiz - package名について - Islands in the byte stream

#!perl -w
use strict;
use Test::More 'no_plan';
sub f{
    # 何かする
    bless({}, '::Foo');
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__

うわあ，適当にそれっぽく書いてみたら失敗したよこれ．いみふ！