use Moose;
with 'orm';

has table => ( name => 'my_database_table' );

##</code><code>##

has table => ( name => 'my_database_table' );

##</code><code>##

use Moose;

has id => ( is => 'ro', isa => 'Int' );
has field1 => ( is => 'rw', isa => 'Str' );
has field2 => ( is => 'rw', isa => 'Str' );

##</code><code>##

mysql -e 'desc my_database_table' | cut -f1 | perl -ple '$_=qq{has $_ => ( is => "rw" );}'