Perl Quiz - Practice of Programmingこちらの問題。 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
