Select Code to Download

# lib/MyDB.pm
package MyDB;
...
));

1;

# lib/MyDB/Result/Article.pm
package MyDB::Result::Article;
...

__PACKAGE__->table( 'articles' );
__PACKAGE__->columns(qw( updated_time created_time ));

my $schema = MyDB->connect( @connection_info );
my $article = $rs->schema( 'Article' )->new({});

# lib/MyDB/ResultSet/Article.pm
package MyDB::ResultSet::Article;
...
}

1;