Вызов частного внутри класса в Perl 6

Question

Я не могу назвать частный метод внутри класса в Perl 6:

class MyClass { 

    method !my-private-method($var1) { 
    # .... 
    } 

    method my-method() { 
    my $my-var1 = !my-private-method(123); # not found (Undeclared routines) 
    my $my-var1 = $!my-private-method(123); # not found (Undeclared routines) 
    my $my-var1 = $.my-private-method(123); # not found (Undeclared routines) 
    my $my-var1 = my-private-method(123); # not found (Undeclared routines) 

Так как я могу позвонить my-private-method из my-method?

Answer 1

Вы должны вызвать частный метод для объекта экземпляра.

my $my-var1 = self!my-private-method(123); 

должно работать.