Select Code to Download

package MyModule::DBI;

...
__PACKAGE__ -> set_db('Main', $dsn);

1;

package MyModule::Data;

...
__PACKAGE__ -> columns(All => qw(column1 column2 column3));

1;

package MyModule;

...
}

1;

use MyModule;

my $obj = MyModule -> new(db_path => '/path/to/file');