Пропустить переменные вокруг модификатора метода around

Question

Можно ли передавать переменные между несколькими вызовами на aroundMethodModier? пример (который не работает, но мы надеемся, передает то, что я хочу сделать)

sub mysub { ... }; 

around 'mysub' => sub { 
    my $orig = shift; 
    my $self = shift; 

    my $value = get_value; 

    $self->orig(@_); 
}; 

around 'mysub' => sub { 
    my $orig = shift; 
    my $self = shift; 
    my $value = shift; 

    my $output 
     = "sometext $value" 
     . $self->orig(@_); 
     . 'someothertext $value' 
     ; 
}; 

я в конце концов хотели бы иметь эти «обходные» помещены в подключаемой черт, где я реально не знаю, какие из них будут загружены заранее, но окончательный вывод будет аккуратно отформатирован.

Возможно, что я думаю об этом совершенно неправильно, поэтому другие предложения приветствуются.

Answer 1

Используйте переменную экземпляра:.

$self->{value} = get_value; 
... 
my $value = $self->{value}; 

_{(См вопрос commments для действительного ответа, я просто его здесь, подтверждающее, так что я могу принять ответ, спасибо до:}

)

Answer 2

То, что вы пытаетесь сделать, не имеет логики.

«Модификатор вокруг получает оригинальный метод в качестве первого аргумента, то объект, и, наконец, любые аргументов, переданных методу.»

https://metacpan.org/pod/Moose::Manual::MethodModifiers#BEFORE-AFTER-AND-AROUND