Какие стратегии использовали Perl-люди при издевательстве над объектами Moose, которые они будут внедрять в другие объекты Moose в качестве атрибутов с ограниченными типами?

Test :: MockObject :: Расширяет не похоже, хорошо играет с лося. Мне нужно, чтобы объект был благословлен как определенный пакет, хотя ванильный Test :: MockObject не будет работать. Я уверен, что у других людей были подобные трудности. Как вы решили это?

Дополнительные очки за решения, которые уже есть на CPAN.