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

use MooseX::Declare;
role SQL::Translator::Parser::DDL::DBIx::Class {
    use MooseX::Types::Moose qw();
    use MooseX::MultiMethods;
    use SQL::Translator::Constants qw(:sqlt_types :sqlt_constants);
    use SQL::Translator::Types qw(DBICSchema);
    use aliased 'SQL::Translator::Object::Column';
    use aliased 'SQL::Translator::Object::Constraint';
    use aliased 'SQL::Translator::Object::ForeignKey';
    use aliased 'SQL::Translator::Object::Index';
    use aliased 'SQL::Translator::Object::PrimaryKey';
    use aliased 'SQL::Translator::Object::Procedure';
    use aliased 'SQL::Translator::Object::Schema';
    use aliased 'SQL::Translator::Object::Table';
    use aliased 'SQL::Translator::Object::View';

    multi method parse(Schema $data) { $data }

    multi method parse(Str $data) {
    }

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