我如何继承IO :: Handle？例如,我希望能够通过在每次说出之后调用flush来“autoflush”：
class MyIO is IO::Handle {
multi method say(MyIO:D: **@text --> True) {
nextsame;
$*ERR.say: "Flushing\n";
self.flush;
}
};
Metamodel::Primitives.rebless: $*OUT,MyIO;
put $*OUT.^name;
$*OUT.say: "This is standard out";
但是,似乎MyIO从未被调用过.
我认为我可能会说要产生效果,但我对简单子类的技术更有兴趣来覆盖某些行为.但是,话虽如此,如果有更多的Perly 6方式,设计意图供人们使用.
所以,有些问题：
> Perl 6是否非常谨慎地关注它？它如何查找可能会跳过的方法名称？
>内置类是否因为它们的巫术和NQP而特别抵制标准的OO技术？
> Perl 6是否阻止使用句柄进行低级别的摆弄,例如在文件描述符上重新打开$* OUT？ (如Does changing Perl 6’s $*OUT change standard output for child processes?)
解决方法
Reblessing是sooo 90’s