Select Code to Download

package MyApp::DB;

use Rose::DB;
...
  password => 'mysecret');

1;

package MyApp::DB::Object;

use Rose::DB::Object;
...
sub init_db { MyApp::DB->new }

1;

package MyApp::DB::Gallery;

use MyApp::DB::Object;
...
}

1;

package MyApp::Table;
...
sub add_leg
...
  $leg->save;
  push(@{$self->{'legs'}}, $leg);
}