父/子结构中的变量/子程序继承

Question

我有一个父包和几个子孙包：

#parent
package Mother;

sub new {
    my ($class, $args) = @_;
    my $self = bless {}, $class;
    return $self;
}

# load sub...
sub getGrandchildren {
    my ($self, $package) = @_;
    # find all grandchildren dynamicly
    my @grandchildren = ('Mother::Child::Grandchild');

    # load all found packages and load their config
    foreach my $grandchild (@grandchildren) {
        # require etc

        # load config
        my $c = $grandchild->getConfig();

        # damn ... $c is undef
        # I expected { x => 2 } from grandchild
        warn Dumper $c;

        $config{$grandchild} = $c;
    }
}

# this subroutine should be used
# by children and grandchildren
sub getConfig {
    my ($self) = @_;
    use no strict 'refs';
    return ${$self::."config"};
}
1;

# child
package Mother::Child;
use parent qw/Mother/;

our $config = { x => 1 };

sub new { 
    my ($class, $args) = @_;
    my $self = $class->SUPER::new($args);
    $self->getGrandchildren(__FILE__);

    return $self;
}
1;    

# grandchild
package Mother::Child::Grandchild;
use parent qw/Mother::Child/;

our $config = { x => 2 };

sub new { 
    my ($class, $args) = @_;
    my $self = $class->SUPER::new($args);

    return $self;
}
1;

如果我这样称呼：

my $child = Mother::Child->new();

所有孙子都已加载，并且应该加载他们的配置。

我试图通过一个仅在父级中定义的子例程“getConfig()”来实现这一点。

问题是使用

加载配置

$grandchild->getConfig();

返回 undef。

我想避免在每个孩子和孙子中创建一个子例程 getConfig() 来返回正确的配置（从孩子或孙子）。

这种子/孙结构可以做到这一点吗？还是我做错了什么？

解决方案

按照@bvr 的建议，我用 ${$self."::config"} 替换了 getConfig 中的返回值，并添加了“no strict 'refs'”。

Answer 1

您的代码有一些问题：

• Mother::Child 的构造函数不返回$self，因此您无法从Mother::Child::Grandchild->new 调用中获得正确的引用。

• $self::config 访问包变量的语法不正确。你需要这样的东西：

   sub getConfig {
       my ($self) = @_;
       my $class = ref $self;
  
       no strict 'refs';
       return ${$class . "::config"};
   }
  

• getGrandchildren 获取配置错误 - 例如，您在其中获取变量 @grandchildren。

编辑：将no strict 'refs' 添加到getConfig 子例程以在本地禁用此检查。