rpg.pl

package main;
use Moops;

class Character {
	has name => (is => 'ro', isa => Str);
	method BUILD ($p) {
		my $race = $p->{race} // 'Human';
		Moo::Role->apply_roles_to_object($self, "Race::$race");
	}
}

namespace Race {
	role HalfElf;
	role Elf with HalfElf;  # all elves are half-elves
	role Dwarf;
	role Gnome;
	role Halfling;
	role Human;

	role Wizard {
		method cast_spell () {
			say "Abracadabra!";
		}
	}
}

my $james = Character->new(
	name => 'Gandalfini',
	race => 'Wizard',
);

$james->cast_spell
	if $james->DOES('Race::Wizard');