Transférer les variables autour du modificateur de méthode around

Question

Est-il possible de passer des variables entre plusieurs appels à aroundMethodModier? par exemple (qui ne fonctionne pas, mais je l'espère véhicule ce que je veux faire)

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

Je finirais que d'avoir ces « contournements » placé dans les traits, connectables où je sais pas vraiment ceux qui sont chargés au préalable mais la sortie finale sera soigneusement formatée.

Il est possible que j'y pense complètement faux, donc d'autres suggestions sont les bienvenues.

Answer 1

Utilisez une variable d'instance.

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

_{(Voir commments question pour une réponse réelle je suis juste réitérer ici, donc je ne peux accepter une réponse, merci vers:}

)

Answer 2

Ce que vous essayez de faire n'a pas de logique.

« Un modificateur autour reçoit le méthode originale comme premier argument, alors l'objet, et, enfin, toutes les arguments passés à la méthode. »

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