在被调用者中获取被调用为str的方法

Question

我想从被调用者端内省方法调用的尾部。

现在我正在明确地这样做。。。

# caller side
s.pd: '.shape';
s.pd: '.to_json("test.json")';
s.pd: '.iloc[2] = 23';
# callee side
method pd( Str $call ) {
given $call {
when /shape/   { ... }
when /to_json/ { ... }
#etc
}
}

但是，我想通过"俚语方法调用"的方式来实现这一点，像这样的代码。。。

# caller side
s.pd.shape;
s.pd.to_json("test.json");
s.pd.iloc[2] = 23;
^ ^^ ^^^^^^^^^^^^^^^^^^^$
|  |       |
|  |       L a q// str I can put into eg. a custom Grammar
|  |
|  L general method name
|
L invocant
#callee side
method pd( ?? ) {
my $called-as-str = self.^was-called-as;
say $called-as-str;   #'pd.to_json("test.json")'
...
}

(如何(这可以在raku完成？

由于在许多arity模式中有422个调用需要处理，因此需要在被调用类中声明422个方法和签名的答案将不那么吸引人。

Answer 1

根据@jonathans的评论，raku文档状态：

当其他意味着解析名称不会产生任何结果。第一个论点成立名称和以下所有参数都是从原始参数转发的呼叫支持多方法和子签名。

class Magic {
method FALLBACK ($name, |c(Int, Str)) {
put "$name called with parameters {c.raku}"  }
};
Magic.new.simsalabim(42, "answer");

# OUTPUT: «simsalabim called with parameters ⌈(42, "answer")⌋␤»

所以我的代码示例是：

# callee side
class Pd-Stub {
method FALLBACK ($name, Str $arg-str ) {
say "$name called with args: <<$arg-str>>"
}
}
class Series { 
has Pd-Stub $.pd 
}
my s = Series.new;
# caller side
s.pd.shape;                 #shape called with args: <<>>        
s.pd.to_json("test.json");  #to_json called with args: <<test.json>>
s.pd.iloc[2] = 23;          #iloc called with args: <<>>
#iloc needs to use AT-POS and Proxy to handle subscript and assignment