Передать переменные вокруг модификатора метода
Можно ли передавать переменные между несколькими вызовамиaround
MethodModier? пример (это не работает, но, надеюсь, передает то, что я хочу сделать)
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'
;
};
В конечном итоге я хотел бы поместить эти «обходы» в подключаемые черты, где я не буду точно знать, какие из них загружены заранее, но окончательный результат будет аккуратно отформатирован.
Вполне возможно, что я думаю об этом совершенно неправильно, поэтому другие предложения приветствуются.