我怎样才能将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

原文地址：https://www.jb51.cc/Perl/171407.html

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [e-mail] 举报，一经查实，本站将立刻删除。

• 上一篇：Perl测试：如何在首次失败后在单个下一篇：perl6 – 如何通过Nativecall回调传