2 Add a &reverse_method_lookup to MooseX::AttributeHelpers::Base which
3 given a name of a providable method will return the method name chosen
4 by the consumer of the module. Something like this.
6 has +method => (default => sub {
9 my ($attr, $reader, $writer) = @_;
10 my $bar_method_name = $attr->reverse_method_lookup('bar');
12 $_[0]->$bar_method_name()