perl - 在 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"};