定义可通过方法语法调用的子例程

Question

可以通过函数语法调用sqrt：

> sqrt 16
4

也可以通过方法语法调用：

> 16.sqrt
4

有没有办法让用户定义的子例程可以通过方法语法调用？

例如，让我们定义sq：

> sub sq(Int $n) { $n*$n }
sub sq (Int $n) { #`(Sub|64042864) ... }
> sq 4
16

有没有一种方法可以使它作为方法可调用？即。

> 4.sq

Answer 1

您可以使用monkey键入来增加Int。期待乐观主义者退出，你的意志/乳房缩小，世界总的来说会结束。猴子打字是邪恶的。除非必要，否则不要使用它。

use MONKEY-TYPING; 
augment class Int { method sq(Int:D $i:){ $i * $i } };
my Int $i = 4;
say $i.sq;

可以将角色混入对象。请注意，对象是对象，而不是类Int，也不是容器$i。

my $i = 4 but role :: { method sq(Int:D $i:){ $i * $i } };
say $i.sq;

您可以创建一个自由浮动方法并使用。

my method sq(Int:D $i:){ $i * $i };
my $i = 4;
say $i.&sq;

编辑：

如果你真的想打破假设，你甚至可以访问私有属性。

class Foo { has $!bar = 'meow'; };
use MONKEY-TYPING;
augment class Foo { method baz { say $!bar } };
Foo.new.baz
# OUTPUT«meow␤»

Answer 2

有没有办法让用户定义的子例程可以通过方法语法调用？

是的，只需使用。

625.&sqrt.say
# 25

invocant作为第一个参数传递：

sub sq { $^a² }; say 4.&sq
4.&sq.say
# 16

唯一的问题是，如果要将方法链分解为多行，则必须使用unspace：

4.&sq\
 .&sq.say;