use Moose::Role;
-our $VERSION = '0.00400';
+our $VERSION = '0.00500';
=head1 NAME
my $writer = $attr->get_write_method_ref;
return sub {
my $self = shift;
- return $self->$reader unless @_;
- return $self->$writer((@_ > 1 ? [@_] : @_));
+ return $reader->($self) unless @_;
+ return $writer->($self,(@_ > 1 ? [@_] : @_));
}
}