如何使用 bless
创建具有继承的匿名类的对象?
我想我需要设置@ISA
,但是如何使用strict
来实现这一点?
经过一点райтфолд的提示,我看了看Class::Inner
。他们通过以下方式解决继承问题
no strict 'refs';
@{"$anon_class\::ISA"} = $parent;
有没有办法仍然使用严格的引用来实现这一点?
最佳答案
使用parent
为您的类(class)设置基类。 bless
与继承无关:
package Derived;
use warnings;
use strict;
use parent qw(Base);
sub new {
my $class = shift;
return bless {}, $class;
}
关于perl - 使用 `bless` 创建具有继承的对象,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29228145/