perl 6 method wrapping via a role

gistfile1.txt

role R {
    method m() { say 42 }
}
    
class C does R {
}
    
my $x = C.new;
log-calls($x, R);
    
my @log;
sub log-calls($obj, Role $r) {
    my $wrapper = RoleHOW.new;
    for $r.^methods -> $m {
        $wrapper.^add_method($m.name, method (|$c) {
            push @log, "called $m.name";
            nextsame;
        });
    }
    $obj does $wrapper.^compose();
}
    
$x.m();
say @log.perl;