perl - 使用 `bless` 创建具有继承的对象

Question

如何使用 bless 创建具有继承的匿名类的对象？

我想我需要设置@ISA，但是如何使用strict来实现这一点？

---

经过一点райтфолд的提示，我看了看Class::Inner 。他们通过以下方式解决继承问题

no strict 'refs';
@{"$anon_class\::ISA"} = $parent;

有没有办法仍然使用严格的引用来实现这一点？

Answer 1

使用parent为您的类(class)设置基类。 bless 与继承无关:

package Derived;
use warnings;
use strict;
use parent qw(Base);

sub new {
    my $class = shift;
    return bless {}, $class;
}