gistfile1.txt

./perl6
> class t{}
t()
> role r{method hello{say 'hello'}}
r()
> class t_r does r {}
t_r()
> t_r.new().hello()
hello
> (t.new does r).hello()
hello
> t.new.^add_role(r).hello()
hello