定义一个可以通过方法语法调用的子程序

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-typing 来扩充 Int。期待优化者保释，你的 willy/boobs 缩小，世界末日一般。猴子打字是邪恶的。除非必须，否则不要使用它。

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

您可以将角色混合到对象中。注意对象是对象，不是classInt也不是容器$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

Is there a way to make user defined subroutines invokable via method syntax?

是的，只需使用 .& 语法，如：

625.&sqrt.say
# 25

调用者作为第一个参数传递：

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

唯一的问题是如果你想将方法链分解成多行，你必须使用 unspace:

4.&sq\
 .&sq.say;

Define a subroutine that can be called via method syntax