RoleA requiring method provided by RoleB - Moose-Version (works)

roletest-moose.pl

use v5.14;
use strict;
use warnings;

package RoleA;
use Moose::Role;

  requires 'm1';
  sub m2() {
    my $self = shift;
    $self->m1." World!\n";
  }
1;
package RoleB;
use Moose::Role;
  has 'm1' => ( is => 'ro', isa => 'Str', default => 'Hello');
1;

package ClassA;
use Moose;
  with 'RoleB';
  with 'RoleA';
  sub m3() {
    my $self = shift;
    $self->m2();
  }
1;

package main;

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