Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re^6: OO automatic accessor generation

by eric256 (Parson)
on Nov 11, 2009 at 21:17 UTC ( [id://806595] : note . print w/replies, xml ) Need Help??


in reply to Re^5: OO automatic accessor generation
in thread OO automatic accessor generation

package DataTable; use Moose; has 'tablename' => (is => 'rw', isa => 'Str'); has 'columns' => (is => 'rw', isa => 'ArrayRef[Str]'); has 'indices' => (is => 'rw', isa => 'HashRef[Str]'); has 'datatypes' => (is => 'rw', isa => 'ArrayRef[Str]'); has [qw/ lengths decimals signed allownull default usequote/] => (is => 'rw', isa => 'ArrayRef[Int]'); 1;


___________
Eric Hodges