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

发布时间：2020-12-15 22:02:59 所属栏目：大数据来源：网络整理

导读：我如何继承IO :: Handle？例如,我希望能够通过在每次说出之后调用flush来“autoflush”： class MyIO is IO::Handle { multi method say(MyIO:D: **@text -- True) { nextsame; $*ERR.say: "Flushingn"; self.flush; } };Metamodel::Primitives.rebless: $*

我如何继承IO :: Handle？例如,我希望能够通过在每次说出之后调用flush来“autoflush”：

class MyIO is IO::Handle {
    multi method say(MyIO:D: **@text --> True) {
        nextsame;
        $*ERR.say: "Flushingn";
        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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!