如何从类方法访问 Moose 属性？

Question

考虑以下代码：

package Test1;
use Moose; 

has 'something' => (
    is => 'rw',
    default => 'BLAH!'
);

sub printSomething {
    my ($self) = @_;
    ## What should I use here to get the value of something?
    print $self->something;
}

package Test2;

Test1->printSomething();

printSomething 如何访问something？

Answer 1

不可以。您必须实例化一个 Test1 对象才能构造属性默认值。他们不在课堂上闲逛。

如果你想在 Moose 中获得真正的类属性，你可以编写一个方法来关闭某些内容并返回它：

{
    my $class_attr = 'BLAH!';
    sub something { 
        return $class_attr;
    }
}

当然，如果你需要的话，你还必须做更多的工作来添加设置器和清除器等等。更好的方法是像这样使用 MooseX::ClassAttribute ：

package Test1;

use Moose;
use MooseX::ClassAttribute;

class_has 'something' => ( 
    is       => 'rw',
    default  => 'BLAH!'
);

这样做的好处是让 Moose 意识到你的类属性，并自动添加元内省的优点。