2 class SQL::Translator::Parser {
3 use MooseX::Types::Moose qw(Maybe Str);
4 use SQL::Translator::Types qw(DBIHandle Translator);
9 predicate => 'has_dbh',
15 predicate => 'has_ddl',
21 predicate => 'has_type',
29 handles => [ qw(schema) ],
33 my $role = __PACKAGE__;
36 } elsif ($self->has_type || $self->has_ddl) {
39 Class::MOP::load_class($role);
40 $role->meta->apply($self);