在 Perl 6 中怎么为已存在的类添加方法?

How do you add a method to an existing class in Perl 6?

Perl 6 中怎么为已存在的类添加方法?

Int 类有一个方法叫做 is-prime, 我想为 Int类型添加其它的方法。

class MyInt is Int {
    method is-even () returns Bool:D {
        return False if self % 2;
        return True;
        }
    }

my $n = MyInt.new(138);
say $n.is-even;

通过类的继承也是一种方法, 但是不是我想要的。Swift 中可以通过扩展来实现, Perl 6 中有一个 add_method方法:

method add_method(Metamodel::MethodContainer: $obj, $name, $code)

这会给元类(meta class)添加一个方法, 使用 $name 作为调用的方法名。这只会在类型被组合前使用。

Int.^add_method( 'is-even', method () returns Bool:D {
    return False if self % 2;
    return True;
    } );

say 137.is-even;
say Int.^methods;

如果我调用 Int.^methods时, is-even没有出现。但是上面的代码能被调用并起作用了。

Int.^add_method('fac', method () returns Int:D {
     return 1 if self == 0;
     return 1 if self == 1;
     my $sum = 1; for 1 .. self  {$sum *= $_}; return $sum;
});

1.fac # 1
5.fac # 120

method 后面的圆括号是方法的签名：

Int.^add_method('power', method (Int $num) returns Int:D {
     return self ** $num;
});

2.power(3).say;  # 8
2.power(10).say; # 1024

词法方法

---

我可以让方法不依附于任何类, 并且能在对象上调用该方法:

my &is-even = method (Int:D :) returns Bool:D { self %% 2 };

这构建了一个 Callable （查看以下 &is-even.WHAT）。 在签名中, 我把它约束为一个定义了的 Int 类型的值(Int:D), 但是没有给它名字。我在类型约束后面添加冒号来说明第一个参数是调用者。现在我能把这个方法应用到任何我想要的对象上:

say 137.&is-even;
say 138.&is-even;
say "foo".&is-even;  # works, although inside is-even blow up