클래스 메소드에서 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 객체를 인스턴스화해야합니다. 그들은 수업 시간에 어울리지 않습니다.

당신이 무스의 진정한 클래스 속성을 원하는 경우에, 당신은 뭔가 이상 닫고 그것을 반환하는 방법을 쓸 수 있습니다 :

물론

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

, 당신은 세터와 clearers을 추가 할 수있는 좀 더 작업을해야을 당신이 그것들을 필요로한다면, 이것 저것. 더 좋은 방법은 다음과 같이 MooseX::ClassAttribute을 사용하는 것입니다

클래스 속성의 무스 인식하고, 자동으로 메타 반성의 선 (善)에 추가 할 수있는 장점이있다

package Test1; 

use Moose; 
use MooseX::ClassAttribute; 

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

.