¿Es posible pasar variables entre múltiples llamadas alaround Método Modier? ejemplo (eso no funciona pero con suerte transmite lo que quiero hacer)

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'
       ;
};

Eventualmente me gustaría tener estos 'alrededores' colocados en rasgos conectables, donde realmente no sabré cuáles están cargados de antemano, pero el resultado final estará bien formateado.

Es posible que esté pensando en esto completamente mal, por lo que otras sugerencias son bienvenidas.