在 perl 中使用带有类名的变量访问类变量

Question

我想知道我将如何去做：

package Something;
our $secret = "blah";

sub get_secret {
    my ($class) = @_;
    return; # I want to return the secret variable here
}

现在当我去的时候

print Something->get_secret();

我希望它打印blah。现在，在您告诉我只使用 $secret 之前，我想确保派生类是否使用 Something 作为基础，并且我调用 get_secret > 我应该得到那个班级的秘密。

如何使用 $class 引用包变量？我知道我可以使用 eval 但有更优雅的解决方案吗？

Answer 1

$secret 应该可以在包内修改吗？如果没有，您可以删除该变量，而只让类方法返回该值。想要拥有不同秘密的类将重写该方法，而不是更改秘密的值。例如：

package Something;

use warnings; use strict;

use constant get_secret => 'blah';

package SomethingElse;

use warnings; use strict;

use base 'Something';

use constant get_secret => 'meh';

package SomethingOther;

use warnings; use strict;

use base 'Something';

package main;

use warnings; use strict;

print SomethingElse->get_secret, "\n";
print SomethingOther->get_secret, "\n";

否则，perltooc 包含适合各种场景的有用技术。 perltooc 指向 Class::Data::Inheritable 看起来它会满足您的需求。

Answer 2

您可以使用符号引用：

no strict 'refs';
return ${"${class}::secret"};