Re: delegate Moose accessors to a HASH?

handles => {
    this => sub { $_[0]->data->{this} },
    that => sub { $_[0]->data->{that} },
},
[download]

Comment on Re: delegate Moose accessors to a HASH? Download Code

Replies are listed 'Best First'.
Re^2: delegate Moose accessors to a HASH? by perl5ever (Pilgrim) on Jun 23, 2011 at 19:42 UTC
The setter doesn't seem to work: `$foo->that(10) # sets $foo->data->{that} = 10` [download] I can make this work: `$foo->that = 10` [download] by adding `:lvalue` to the `sub` declarations, but that's not what I want.	[reply] [d/l] [select]
Re^3: delegate Moose accessors to a HASH? by ikegami (Patriarch) on Jun 23, 2011 at 19:59 UTC
Sorry, I wrote it as a getter, not an accessor. `handles => { this => sub { @_ == 1 ? $_[0]->data->{this} : $_[0]->data->{this} = $_[1] }, that => sub { @_ == 1 ? $_[0]->data->{that} : $_[0]->data->{that} = $_[1] }, },` [download] You can use a map to avoid duplication and/or an accessor generating function.	[reply] [d/l]