lib/SQL/Translator/Parser/DDL/DBIx/Class.pm

   1 use MooseX::Declare;
   2 BEGIN {
   3   use Moose::Util::TypeConstraints;
   4
   5   class_type 'DBIx::Class::Schema';
   6
   7   no Moose::Util::TypeConstraints;
   8 }
   9 role SQL::Translator::Parser::DDL::DBIx::Class {
  10     use MooseX::Types::Moose qw();
  11     use MooseX::MultiMethods;
  12     use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);
  13     use aliased 'SQL::Translator::Object::Column';
  14     use aliased 'SQL::Translator::Object::Constraint';
  15     use aliased 'SQL::Translator::Object::ForeignKey';
  16     use aliased 'SQL::Translator::Object::Index';
  17     use aliased 'SQL::Translator::Object::PrimaryKey';
  18     use aliased 'SQL::Translator::Object::Procedure';
  19     use aliased 'SQL::Translator::Object::Schema';
  20     use aliased 'SQL::Translator::Object::Table';
  21     use aliased 'SQL::Translator::Object::View';
  22
  23     multi method parse(DBIx::Class::Schema $data) { $data }
  24
  25     multi method parse(Str $data) {
  26     }
  27 }