在 Perl 6 中调用类中的私有方法答案

【问题标题】：Calling a private method within a class in Perl 6在 Perl 6 中调用类中的私有方法
【发布时间】：2015-10-09 04:35:32
【问题描述】：

我不能在 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-method 呼叫my-private-method？

【问题讨论】：

您确定那些带有破折号的变量和方法名称吗？这有点像 COBOL……
@JonathanLeffler，是的。

标签： perl raku

【解决方案1】：

你必须在你的实例对象上调用私有方法。

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

应该可以。

【讨论】：

出于好奇，没有self有什么方法可以调用它？
@jawanam 我不确定——我自己还是个 perl6 新手。
您可以在 Class 对象上调用它。如果你想要一个私有子程序，只需在类定义中写一个子程序，因为 subs 默认是词法的。