Как написать собственные методы доступа в Perl6?
Как написать собственные методы доступа в Perl6?
Если у меня есть этот класс:
class Wizard {
has Int $.mana is rw;
}
Я могу сделать это:
my Wizard $gandalf .= new;
$gandalf.mana = 150;
Допустим, я хочу добавить небольшую проверку в сеттер моего класса Perl6, не отказываясь от$gandalf.mana = 150;
запись (другими словами, я не хочу писать это:$gandalf.setMana(150);
). Программа должна умереть, если она попытается установить отрицательную ману. Как мне это сделать? В документации Perl6 просто упоминается, что можно написать собственные средства доступа, но не сказано, как это сделать.