perl – 为什么$class-> SUPER :: new在使用多重继承时不调用

A.pm：

package A;
use Carp qw (croak);
use strict;
use warnings;

sub new {
    my $class = shift;
    print "This is A newn";
    my $self->{DEV_TYPE} = shift || "A";
    bless($self,$class);
    return $self;
}

sub a_func{
    print "This is A funcn";
}

1;

B.pm：

package B;
use Carp qw (croak);
use strict;
use warnings;

sub new {
    my $class = shift;
    print "This is B newn";
    my $self->{DEV_TYPE} = shift || "B";
    bless($self,$class);
    return $self;
}

sub b_func{
    print "This is B funcn";
}

1;

C.pm：

package C;
use Carp qw (croak);
use strict;
use warnings;
eval "use A";
die $@ if $@;
eval "use B";
die $@ if $@;
our @ISA = ("A","B");

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    print "This is C newn";
    $self->{DEV_TYPE} = shift || "C";
    bless($self,$class);
    return $self;
}

sub c_func{
    print "This is C funcn";
}

1;

在C :: new中,$class-> SUPER :: new不会调用B的构造函数.如果我用$class-> B :: new(@_);显式调用它,我得到错误

Can’t locate object method “new” via package “B” at C.pm

我究竟做错了什么？