Commit | Line | Data |
---|---|---|
d70ca130 | 1 | use MooseX::Declare; |
2 | ||
b6c45ef3 | 3 | class SQL::Abstract::Types::Compat is dirty { |
d70ca130 | 4 | use Moose::Util::TypeConstraints; |
5 | use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef ScalarRef/; | |
6 | ||
7 | clean; | |
8 | ||
9 | use MooseX::Types -declare => [qw/LogicEnum WhereType/]; | |
10 | ||
11 | enum LogicEnum, qw(OR AND); | |
12 | ||
aa0f2366 | 13 | coerce LogicEnum, from Str, via { uc $_ }; |
14 | ||
d70ca130 | 15 | subtype WhereType, as Str|ArrayRef|HashRef|ScalarRef; |
16 | } |