MooseX::Emulate::Class::Accessor::Fast - Emulate Class::Accessor::Fast behavior using Moose attributes
package MyClass; use Moose; with 'MooseX::Emulate::Class::Accessor::Fast'; #fields with readers and writers __PACKAGE__->mk_accessors(qw/field1 field2/); #fields with readers only __PACKAGE__->mk_ro_accessors(qw/field3 field4/); #fields with writers only __PACKAGE__->mk_wo_accessors(qw/field5 field6/);
This module attempts to emulate the behavior of Class::Accessor::Fast as accurately as possible using the Moose attribute system. The public API of Class::Accessor::Fast is wholly supported, but the private methods are not. If you are only using the public methods (as you should) migration should be a matter of switching your use base line to a with line.
Class::Accessor::Fast
use base
with
While I have attempted to emulate the behavior of Class::Accessor::Fast as closely as possible bugs may still be lurking in edge-cases.
Simple documentation is provided here for your convenience, but for more thorough documentation please see Class::Accessor::Fast and Class::Accessor.
Please note that, at this time, the is flag attribute is not being set. To determine the reader and writer methods using introspection in later versions of Class::MOP ( > 0.38) please use the get_read_method and get_write_method methods in Class::MOP::Attribute. Example
is
reader
writer
get_read_method
get_write_method
# with Class::MOP <= 0.38 my $attr = $self->meta->find_attribute_by_name($field_name); my $reader_method = $attr->reader || $attr->accessor; my $writer_method = $attr->writer || $attr->accessor; # with Class::MOP > 0.38 my $attr = $self->meta->find_attribute_by_name($field_name); my $reader_method = $attr->get_read_method; my $writer_method = $attr->get_write_method;
Change the default Moose class building to emulate the behavior of C::A::F and store arguments in the instance hashref.
Create read-write accessors. An attribute named $field_name will be created. The name of the c<reader> and writer methods will be determined by the return value of accessor_name_for and mutator_name_for, which by default return the name passed unchanged. If the accessor and mutator names are equal the accessor attribute will be passes to Moose, otherwise the reader and writer attributes will be passed. Please see Class::MOP::Attribute for more information.
$field_name
accessor_name_for
mutator_name_for
accessor
Create read-only accessors.
Create write-only accessors.
Preface readers with 'get_' and writers with 'set_'. See original Class::Accessor documentation for more information.
See original Class::Accessor documentation for more information.
See Moose::Meta::Class.
Moose, Moose::Meta::Attribute, Class::Accessor, Class::Accessor::Fast, Class::MOP::Attribute, MooseX::Adopt::Class::Accessor::Fast
Guillermo Roditi (groditi) <groditi@cpan.org>
With contributions from:
You may distribute this code under the same terms as Perl itself.
To install MooseX::Emulate::Class::Accessor::Fast, copy and paste the appropriate command in to your terminal.
cpanm
cpanm MooseX::Emulate::Class::Accessor::Fast
CPAN shell
perl -MCPAN -e shell install MooseX::Emulate::Class::Accessor::Fast
For more information on module installation, please visit the detailed CPAN module installation guide.