Role composition and multi

role-composition-with-multi.p6

#!/usr/bin/perl6

role boo1 {
	multi method boo ($message) {
		say "Boo1: $message";
	}
}

role boo2 {
	multi method boo () {
		say "Boo2";
	}
}


class Boo does boo1 does boo2 {
	method boo () {
		say "Boo";
	}
}

my $booable = Boo.new;
$booable.boo