Perl Quiz

こちらの問題。
http://d.hatena.ne.jp/gfx/20081007/1223340787

回答がすでにいろいろ出てるけど。

これで。

#!/usr/bin/perl
use strict;
use Test::More 'no_plan';
sub f{
  my $builder = Test::More->builder;
  my $out = $builder->output;
  print $out <<_TEST_;
not ok 1
#   Failed test at q.pl line 17.
#          got: ''
#     expected: 'Foo'
_TEST_
  $builder->output(*HOGE);
  sub Foo::DESTROY {$builder->output($out)}
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__

ひどいなw