Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use Test::More tests => 1;
- use Data::Model;
- use Data::Model::Driver::DBI;
- {
- package Neko::DB::User;
- use base 'Data::Model';
- use Data::Model::Schema;
- install_model user => schema {
- key 'foo';
- column 'foo' => varchar => {
- binary => 1,
- };
- };
- }
- my $dm = Neko::DB::User->new();
- my $driver = Data::Model::Driver::DBI->new(
- dsn => 'dbi:SQLite:'
- );
- $dm->set_base_driver($driver);
- for my $target ($dm->schema_names) {
- for my $sql ($dm->as_sqls($target)) {
- $driver->rw_handle->do($sql);
- }
- }
- ok 1;
Add Comment
Please, Sign In to add comment