1 package SQL::Translator::Parser;
2 use namespace::autoclean;
4 use MooseX::Types::Moose qw(Str);
5 use SQL::Translator::Types qw(DBIHandle);
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);
40 __PACKAGE__->meta->make_immutable;