Pass variables around the around method modifier

Question

Is it possible to pass variables between multiple calls to the around MethodModier? example (that doesn't work but hopefully conveys what I want to do)

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

I'd eventually like to have these 'arounds' placed in pluggable traits, where I won't really know which ones are loaded beforehand but the final output will be neatly formatted.

It's possible that I'm thinking about this completely wrong, so other suggestions welcome.

Like `$self->{value} = get_value;` .... `my $value = $self->{value};` — jmz, Aug 15 '10 at 11:35
@jmz although I find it odd that the order of the around's is the exact opposite of what I'd think it would be, in order for it to work correctly. — xenoterracide, Aug 15 '10 at 12:18
@xenoterracide: MethodModifier documentation is quite clear that the order is around2..around1...orig. — jmz, Aug 15 '10 at 12:45
@jmz yeah... I read the docs on it... anyways that's not so much a problem, though I realized I need to build on your solution a bit. I think I need to use a LIFO stack. — xenoterracide, Aug 15 '10 at 13:08
@jmz: by "instance variables" I hope you mean attributes. If I saw `$self->{value} = ...` in a Moose module I would slap the programmer. @xenoterracide: `around` application on a method *is* a LIFO stack. — Ether, Aug 15 '10 at 15:22
@Ether obviously but I need more than just the `around` for this. read the Catalyst Documentation? it's full of `$self->{value}` — xenoterracide, Aug 15 '10 at 15:50

score 0 · Answer 1 · edited May 09 '14 at 08:40

0

What you are trying to do don't have logic.

"An around modifier receives the original method as its first argument, then the object, and finally any arguments passed to the method."

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

edited May 09 '14 at 08:40

szabgab

6,202
11
50
64

answered Aug 16 '10 at 02:07

Mantovani

500
2
7
18

score 0 · Accepted Answer · edited May 23 '17 at 12:33

0

Use an instance variable:

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

_{(See question commments for an actual answer. I'm just reiterating it here, so I can accept an answer, thanks to:}

)

edited May 23 '17 at 12:33

Community

1
1

answered Dec 26 '10 at 22:53

xenoterracide

16,274
24
118
243

as a side note I did not end up using this pattern for implementation, I simply let go of this goal. – xenoterracide Dec 28 '10 at 00:25

Pass variables around the around method modifier

2 Answers2

Linked