我怎样才能将Perl 6的IO :: Handle子类化？

我如何继承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