perl – 我应该在编译时而不是运行时建立继承,如果是这样,为什么

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

导读：Perl中的AFAIK继承通常设置如下： package Mule;our @ISA = ("Horse","Donkey"); 有没有使用基础(或使用父母)更好的例子？解决方法在编译时建立继承避免了特别难以调试的依赖循环,如下所示. # Child.pmpackage Child;our @ISA = qw(Mother);use Foo;# Moth

Perl中的AFAIK继承通常设置如下：

package Mule;
our @ISA = ("Horse","Donkey");

有没有使用基础(或使用父母)更好的例子？

解决方法

在编译时建立继承避免了特别难以调试的依赖循环,如下所示.

# Child.pm
package Child;

our @ISA = qw(Mother);

use Foo;

# Mother.pm
package Mother;

sub wibble { 42 }

# Foo.pm
package Foo;

use Child;
Child->wibble;

如果你在“使用Foo”之前“使用Child”,那么Foo会在它确定继承母亲之前尝试调用Child-> wibble.如果相反Child使用父qw(母亲),它的继承将在它尝试加载任何其他东西之前建立.

在私有的公司代码中,我一直是这种依赖循环,它往往比公共代码更加交织在一起.调试很糟糕,这就是为什么我建议总是在编译时建立继承.

（编辑：李大同）

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