使用Moose with Test :: Class - 构造函数的问题

Question

我正在重构一个基于Test::Class构建的测试套件，并希望在基础测试类和一些测试类中利用Moose这样的Roles细节。

我试过了：

在基础测试类中使用MooseX::NonMoose
在基类中使用MooseX::InsideOut
设置make_immutable( inline_constructor => 0 );

虽然我以前从未使用过任何一种MooseX模块，但不能确定我是否正确使用它们。在我的所有试验中，我在运行测试套件时收到以下错误：

Test :: Class内部似乎很困惑。您是否在子类中或通过多重继承覆盖new（）？

产生此故障的简单样本：

基础测试类：

package My::Test::Class::Base;

use Moose;
use Test::Class::Most;

1;

测试类：

package Test::Package::Class;

use Moose;
use Test::Class::Most parent => 'My::Test::Class::Base';

sub blah : Tests() {
    my $test = shift;
    can_ok($test->class(), 'blah');
}

1;

正在测试的类：

package Package::Class;

use Moose;

sub blah {
    my $self = shift;
    return 1;
}

1;

那么，我做错了什么？