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(母亲),它的继承将在它尝试加载任何其他东西之前建立.
在私有的公司代码中,我一直是这种依赖循环,它往往比公共代码更加交织在一起.调试很糟糕,这就是为什么我建议总是在编译时建立继承.