role-funkiness.p6

#!/usr/bin/env perl6

use v6; 

role MyRole {
    method handle-message($msg) {
        my @candidates = self.WALK(:name<handle-command>);
        say "self in MyRole.handle-message: {self.gist}";
        say "# candidates: {@candidates.elems}";
        self.*handle-command($msg);
    }   
}

role MyOtherRole {
    also does MyRole;

    method handle-message($msg) {
        say 'doing some stuff first';
        say "self in MyOtherRole.handle-message: {self.gist}";

        self.MyRole::handle-message($msg);
    }   

    multi method handle-command($msg) {
        say 'here!';
    }   
}

my $object = Any.new but MyOtherRole;
$object.handle-message('hello');