gistfile1.pl

use v6;
use MONKEY_TYPING;

class C {}

role R {
    method perl() { 'perl' }
    method foo()  { 'foo' }
}

augment class C     does R {}
augment class Array does R {}
augment class Str   does R {}

say C ~~ R;     # 1
say C.new.perl; # perl
say C.new.foo;  # foo

say [] ~~ R;    # 1
say [].perl;    # []
say [].foo;     # foo

say '' ~~ R;    # 1
say ''.perl;    # ""
# say ''.foo;   # ('foo' not found)