multi method role

gistfile1.txt

role Zub[::T] { 
    proto method CALL-ME(|c) { * }
    multi method CALL-ME(Mu:D $self) {
    }
    multi method CALL-ME(Mu:D $self, T $i) {
    }
}
multi sub trait_mod:<is> (Method $m, :$foo!) is export {
    $m does Zub[Int];
}


class Foo {
    proto method bar(|c) { * }

    multi method bar() is foo {
    }
    multi method bar(Int $o) is foo {
    }
}

Foo.new.bar(1);