perl - Moops と Moose を使用する場合、属性アクセサーがロール要件を満たしていない

Question

次のコード サンプルを検討してください。

use Moops;

role RoleA
using Moose {
  requires 'm1';
  method m2() {
    $self->m1." World!\n";
  }
}

role RoleB
using Moose {
  has 'm1' => ( accessor => 'm1', is => 'ro', isa => 'Str', default => 'Hello');
}

class ClassA
with RoleB
with RoleA
using Moose {
  method m3() {
    $self->m2();
  }
}

print ClassA->new()->m3();

属性アクセサが のロール要求を満たしていないように見えるため、「コンパイル」は失敗しますm1:

$ perl roletest.pl 
'RoleB|RoleA' requires the method 'm1' to be implemented by 'ClassA' at /usr/lib/perl5/site_perl/Moose/Meta/Role/Application/ToClass.pm line 134.
    Moose::Meta::Role::Application::ToClass::check_required_methods('Moose::Meta::Role::Application::ToClass=HASH(0x28b9d00)', 'Moose::Meta::Role::Composite=HASH(0x28c6270)', 'Moose::Meta::Class=HASH(0x28ee7c0)') called at /usr/lib/perl5/site_perl/Moose/Meta/Role/Application.pm line 55
    Moose::Meta::Role::Application::apply('Moose::Meta::Role::Application::ToClass=HASH(0x28b9d00)', 'Moose::Meta::Role::Composite=HASH(0x28c6270)', 'Moose::Meta::Class=HASH(0x28ee7c0)') called at /usr/lib/perl5/site_perl/Moose/Meta/Role/Application/ToClass.pm line 36
    Moose::Meta::Role::Application::ToClass::apply('Moose::Meta::Role::Application::ToClass=HASH(0x28b9d00)', 'Moose::Meta::Role::Composite=HASH(0x28c6270)', 'Moose::Meta::Class=HASH(0x28ee7c0)', 'HASH(0x28e3410)') called at /usr/lib/perl5/site_perl/Moose/Meta/Role.pm line 470
    Moose::Meta::Role::apply('Moose::Meta::Role::Composite=HASH(0x28c6270)', 'Moose::Meta::Class=HASH(0x28ee7c0)') called at /usr/lib/perl5/site_perl/Moose/Util.pm line 163
    Moose::Util::_apply_all_roles('Moose::Meta::Class=HASH(0x28ee7c0)', undef, 'RoleB', 'RoleA') called at /usr/lib/perl5/site_perl/Moose/Util.pm line 99
    Moose::Util::apply_all_roles('Moose::Meta::Class=HASH(0x28ee7c0)', 'RoleB', 'RoleA') called at /usr/lib/perl5/site_perl/Moose.pm line 66
    Moose::with('Moose::Meta::Class=HASH(0x28ee7c0)', 'RoleB', 'RoleA') called at /usr/lib/perl5/site_perl/Moose/Exporter.pm line 409
    Moose::with('RoleB', 'RoleA') called at roletest.pl line 16
    main::BEGIN() called at roletest.pl line 23
    eval {...} called at roletest.pl line 23
BEGIN failed--compilation aborted at roletest.pl line 23.

プレーンMooseを使用すると、Moose::Roleこれが機能します（ここに文書化されているように）。また、Mooseバックエンドを使用しないと動作しません。

私はすでにwithステートメントの順序を無駄に切り替えようとしました。属性をメソッド宣言に置き換えることで問題は解決しますが、属性要件を指定する方法が必要です。

これを機能させる方法はありますか？