MooseX::Declare, Parameterizable Roles and Method traits

use MooseX::Declare;

role MyParameterizableRole(Str :$prefix = "test")
{
    requires 'mymethod';
    around mymethod($aaa) {
        return $prefix .":". $self->$orig($aaa);
    }
}

role MyMethodTrait {
    has repeat => (is=>'ro', isa=>'Int', required=>1, default=>2);
    around wrap(ClassName $class: $code, %options) {        
        my $method_obj;
        $method_obj = $class->$orig(
            sub {
                my ($self, $arg) = @_;
                $self->$code("$arg:" x $method_obj->repeat );
            }, %options,
        );
        return $method_obj
    }
}

class MyClass {
    method mymethod(Str $message)
    does MyMethodTrait(repeat=>5) {
        return $message;
    }
    with 'MyParameterizableRole' => {prefix=>'hello'};
}

my $aaa = MyClass->new;
warn $aaa->mymethod('world');

## output is "hello:world:world:world:world:world:"