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';
10 predicate => 'has_dbh',
16 predicate => 'has_ddl',
22 predicate => 'has_type',
26 my $role = __PACKAGE__;
29 } elsif ($self->has_type || $self->has_ddl) {
32 Class::MOP::load_class($role);
33 $role->meta->apply($self);
38 my $schema = Schema->new({ name => $self->schema_name });
39 $self->_add_tables($schema);