무스 특성에 개최 메모리 파일을 역 참조

Question

의 I는 실험있어 일부 코드에서 발췌 한 것입니다 : 다른 곳에서

has buffer  => (is => 'rw', isa => 'ScalarRef'); 
has old_stdout => (is => 'rw', isa => 'FileHandle'); 

sub capture { 
    my $self = shift; 
    my $old_stdout; 
    my $buffer; 

    open $old_stdout, '>&', STDOUT 
     or croak 'Cannot duplicate filehandle'; 

    close STDOUT; 

    open STDOUT, '>', \$buffer 
     or croak 'Cannot open filehandle'; 

    $self->old_stdout($old_stdout); 
    $self->buffer(\$buffer); 
} 

sub reset { 
    my $self = shift; 

    open STDOUT, '>&', $self->old_stdout 
     or croak 'Cannot reset STDOUT'; 
} 

: 나는 부정 행위 시도

my $stdout = Capture->new(); 
print "Some output\n"; 
$stdout->reset(); 

print $stdout->buffer(); 
# SCALAR(0x#######) 

print ${$stdout->buffer()}; 
# Some output 

은 속성 hashref를 직접 설정 - 작동하지만, 그것을하고 싶지 않다. :

open STDOUT, '>', \$self->{buffer} 
     or croak 'Cannot open filehandle'; 

나는 som을 놓치고 있다고 생각한다. 여기 근본적인 것. $buffer (메모리 내 파일)을 무스 (Moose) 속성으로 저장하는 방법은 어떻게해야합니까? 호출자가 역 참조를하지 않고 나중에 검색 할 수 있도록하려면 어떻게해야합니까?

업데이트

나는 트릭을 않는 around 방법 수정, 추가되었습니다 :

around 'buffer' => sub { 
    my $orig = shift; 
    my $self = shift; 
    return ${$self->$orig} unless @_; 
    $self->$orig(@_); 
}; 

을 ...하지만 여전히 지저분한 느낌. 더 좋은 방법이 있습니까?

Answer 1

의 옵션은 밑줄을 앞에 붙이는 민간 특성 (buffer 및 old_stdout)를 만든 다음 외부에서 버퍼를 액세스 할 수있는 간단한 방법을 추가하는 것입니다

sub buffer { 
    my $self = shift; 
    return ${$self->_buffer} 
} 

그것은 또한 당신이 중복을 구현하려고하는 것을 보면 Capture::Tiny 또는 이와 유사한 모듈.

Answer 2

buffer의 의미를 변경하지 마십시오 (예 : around). 새 접근자를 만듭니다.

has buffer_ref => (
    ... 
    handles => { 
     buffer => sub { 
     my $self = shift; 
     if (@_) { 
      ${ $self->buffer_ref } = $_[0]; 
     } else { 
      return ${ $self->buffer_ref }; 
     } 
     }, 
    }, 
);