use Moose::Role gets accompanied with no Moose::Role

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Parser.pm

package SQL::Translator::Parser;
use Moose;
use MooseX::Types::Moose qw(Str);
use SQL::Translator::Types qw(DBIHandle);
#extends 'SQL::Translator';

my $apply_role_dbi = sub {
    my $self = shift;
    my $class = __PACKAGE__ . '::DBI';
    Class::MOP::load_class($class);
    $class->meta->apply($self);
    $self->_subclass();
};

my $apply_role_ddl = sub { };

has 'dbh' => (
    isa => DBIHandle,
    is => 'ro',
    predicate => 'has_dbh',
    trigger => $apply_role_dbi,
);

has 'ddl' => (
    isa => Str,
    is => 'ro',
    predicate => 'has_ddl',
    trigger => $apply_role_ddl,
);

sub BUILD {}

after BUILD => sub {
    my $self = shift;
    my $schema = SQL::Translator::Object::Schema->new({ name => $self->schema_name });
    $self->_add_tables($schema);
    use Data::Dumper;
    print Dumper($schema);
};

no Moose;
__PACKAGE__->meta->make_immutable;
1;