Как написать собственные методы доступа в Perl6?

Как написать собственные методы доступа в Perl6?

Если у меня есть этот класс:

class Wizard {
    has Int $.mana is rw;
}

Я могу сделать это:

my Wizard $gandalf .= new;
$gandalf.mana = 150;

Допустим, я хочу добавить небольшую проверку в сеттер моего класса Perl6, не отказываясь от$gandalf.mana = 150; запись (другими словами, я не хочу писать это:$gandalf.setMana(150);). Программа должна умереть, если она попытается установить отрицательную ману. Как мне это сделать? В документации Perl6 просто упоминается, что можно написать собственные средства доступа, но не сказано, как это сделать.

Ответы на вопрос(2)

Ваш ответ на вопрос