Help for this page

Select Code to Download


  1. or download this
    use Moose;
with 'orm';

has table => ( name => 'my_database_table' );
  2. or download this
    has table => ( name => 'my_database_table' );
  3. or download this
    use Moose;

has id => ( is => 'ro', isa => 'Int' );
has field1 => ( is => 'rw', isa => 'Str' );
has field2 => ( is => 'rw', isa => 'Str' );
  4. or download this
    mysql -e 'desc my_database_table' | cut -f1 | perl -ple '$_=qq{has $_ 
+=> ( is => "rw" );}'