1 package SQL::Translator::Parser;
3 use MooseX::Types::Moose qw(Str);
4 use SQL::Translator::Types qw(DBIHandle);
5 #extends 'SQL::Translator';
7 my $apply_role_dbi = sub {
9 my $class = __PACKAGE__ . '::DBI';
10 Class::MOP::load_class($class);
11 $class->meta->apply($self);
15 my $apply_role_ddl = sub { };
20 predicate => 'has_dbh',
21 trigger => $apply_role_dbi,
27 predicate => 'has_ddl',
28 trigger => $apply_role_ddl,
35 my $schema = SQL::Translator::Object::Schema->new({ name => $self->schema_name });
36 $self->_add_tables($schema);
38 print Dumper($schema);
42 __PACKAGE__->meta->make_immutable;