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

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(母亲),它的继承将在它尝试加载任何其他东西之前建立.

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

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