From: Stevan Little Date: Fri, 12 Oct 2007 04:06:21 +0000 (+0000) Subject: misc crap X-Git-Tag: 0.18_01~57 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=735d5df8ec776fd1aeb18dcbcac5975c42fe4fff;p=gitmo%2FMooseX-AttributeHelpers.git misc crap --- diff --git a/TODO b/TODO new file mode 100644 index 0000000..88f15ca --- /dev/null +++ b/TODO @@ -0,0 +1,20 @@ + +Add a &reverse_method_lookup to MooseX::AttributeHelpers::Base which +given a name of a providable method will return the method name chosen +by the consumer of the module. Something like this. + +has +method => (default => sub { + return +{ + 'foo' => sub { + my ($attr, $reader, $writer) = @_; + my $bar_method_name = $attr->reverse_method_lookup('bar'); + return sub { + $_[0]->$bar_method_name() + } + }, + 'bar' => sub { + ... + } + } +}) +