2 class SQL::Translator::Parser {
3 use MooseX::Types::Moose qw(Str);
4 use SQL::Translator::Types qw(DBIHandle);
5 use aliased 'SQL::Translator::Object::Schema';
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,
32 my $schema = Schema->new({ name => $self->schema_name });
33 $self->_add_tables($schema);