Perlのオブジェクトって、クラスチェンジできるよね。
これ使って何か面白いことできないかなぁ。前々から思ってるんだけど。

package Foo;
sub new { bless, {}, Foo; }
sub foo { print "foo\n"; }

pacakge Bar;
sub bar { print "bar\n"; }

package main;
my $obj = new Foo(); # Fooインスタンス作成
$obj->foo(); # --> "foo" と表示
bless $obj, Bar; # Barにクラスチェンジ
$obj->bar(); # --> "bar" と表示
$obj->foo(); # --> エラー : Can't locate object method "foo"...