Class::Accessor::Children - Automated child-class/accessor generation
BEFORE (WITHOUT THIS)
package MyClass::Foo; use base qw( Class:Accessor ); __PACKAGE__->mk_ro_accessors(qw( jacob michael joshua ethan )); package MyClass::Bar; use base qw( Class:Accessor ); __PACKAGE__->mk_ro_accessors(qw( emily emma madison isabella )); package MyClass::Baz; use base qw( Class:Accessor ); __PACKAGE__->mk_ro_accessors(qw( haruka haruto miyu yuto ));
AFTER (WITH THIS)
package MyClass; use base qw( Class::Accessor::Children ); __PACKAGE__->mk_child_ro_accessors( Foo => [qw( jacob michael joshua ethan )], Bar => [qw( emily emma madison isabella )], Baz => [qw( haruka haruto miyu yuto )], );
This module automagically generates child classes which have accessor/mutator methods.
This module inherits Class::Accessor to make accessors.
Class::Accessor
This module provides the following methods in addition to all methods provided by Class::Accessor.
MyClass->mk_child_accessors( Foo => \@fields, ... );
This generates a child class named MyClass::Foo which have accessor/mutator methods each named in \@fields.
MyClass::Foo
\@fields
MyClass->mk_child_ro_accessors( Bar => \@fields, ... );
This generates a child class named MyClass::Bar which have read-only accessors (ie. true accessors).
MyClass::Bar
MyClass->mk_child_wo_accessors( Baz => \@fields, ... );
This generates a child class named MyClass::Baz which have write-only accessor (ie. mutators).
MyClass::Baz
Yusuke Kawasaki http://www.kawa.net/
Copyright (c) 2007 Yusuke Kawasaki. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Class::Accessor::Children, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Class::Accessor::Children
CPAN shell
perl -MCPAN -e shell install Class::Accessor::Children
For more information on module installation, please visit the detailed CPAN module installation guide.