Commit | Line | Data |
1e0243f3 |
1 | package SQL::Translator::Types; |
a336288a |
2 | use MooseX::Types::Moose qw(ArrayRef CodeRef Str); |
d78b1151 |
3 | use MooseX::Types -declare, [qw(Column Constraint Index Procedure Schema Sequence Table Trigger View DBIHandle)]; |
1e0243f3 |
4 | |
c0e05758 |
5 | class_type Column, { class => 'SQL::Translator::Object::Column' }; |
bbdcd43e |
6 | class_type Constraint, { class => 'SQL::Translator::Object::Constraint' }; |
7 | class_type Index, { class => 'SQL::Translator::Object::Index' }; |
8 | class_type Procedure, { class => 'SQL::Translator::Object::Procedure' }; |
9 | class_type Schema, { class => 'SQL::Translator::Object::Schema' }; |
d78b1151 |
10 | class_type Sequence, { class=> 'SQL::Translator::Object::Sequence' }; |
c0e05758 |
11 | class_type Table, { class => 'SQL::Translator::Object::Table' }; |
bbdcd43e |
12 | class_type Trigger, { class => 'SQL::Translator::Object::Trigger' }; |
13 | class_type View, { class => 'SQL::Translator::Object::View' }; |
1e0243f3 |
14 | |
a336288a |
15 | subtype DBIHandle, as 'DBI::db'; |
16 | |
17 | coerce DBIHandle, |
18 | from Str, |
19 | via(\&_coerce_dbihandle_from_str), |
20 | from ArrayRef, |
21 | via(\&_coerce_dbihandle_from_arrayref); |
22 | from CodeRef, |
23 | via(\&_coerce_dbihandle_from_coderef); |
24 | |
25 | |
26 | sub coerce_dbihandle_from_str { } |
27 | sub coerce_dbihandle_from_arrayref { } |
28 | sub coerce_dbihandle_from_coderef { } |
29 | |
1e0243f3 |
30 | 1; |