- or download this
# lib/MyDB.pm
package MyDB;
...
));
1;
- or download this
# lib/MyDB/Result/Article.pm
package MyDB::Result::Article;
...
__PACKAGE__->table( 'articles' );
__PACKAGE__->columns(qw( updated_time created_time ));
- or download this
my $schema = MyDB->connect( @connection_info );
my $article = $rs->schema( 'Article' )->new({});
- or download this
# lib/MyDB/ResultSet/Article.pm
package MyDB::ResultSet::Article;
...
}
1;