Class::MOPに基づくインスタンスMOPでは以下のようなメソッドを提供しなければならないんだけど… package Class::MOP::Instance; #... sub set_slot_value { my ($self, $instance, $slot_name, $value) = @_; $instance->{$slot_name} = $value; } #... こ…