そろそろ何したいのかわからなくなりそう。MooseでいったらRoleつけたりはずしたりしたい。継承ツリー直接いじるとか筋が悪いってレベルじゃないし。 package Foo; sub new { bless {}, shift } package Bar; sub bar { 'bar' } package main; use Perl6::Sa…