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是否可以在包中修改？如果没有，你可以摆脱变量，而只是让一个类方法返回值。想要拥有不同秘密的类将覆盖该方法，而不是更改密钥的值。 E.g：

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

您可以使用symbolic reference：

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

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

2 个答案: