use MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor ();
-our $VERSION = '0.00701';
+our $VERSION = '0.00800';
=head1 NAME
if($attr_name eq $reader){
my $alias = "_${attr_name}_accessor";
next if $meta->has_method($alias);
- my @alias_method = $attr->process_accessors(accessor => $alias, 0);
- $meta->add_method(@alias_method);
+ $meta->add_method($alias => $attr->get_read_method_ref);
}
} else {
my @opts = ( $meta->has_method($writer) ? () : (writer => $writer) );
=over 4
-=item Tomas Doran E<lt>bobtfish@bobtfish.netE<gt>
+=item Tomas Doran (t0m) E<lt>bobtfish@bobtfish.netE<gt>
+
+=item Florian Ragwitz (rafl) E<lt>rafl@debian.orgE<gt>
=back