圍繞方法修飾符傳遞變量

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