3 class SQL::Abstract::Types::Compat {
4 use Moose::Util::TypeConstraints;
5 use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef ScalarRef/;
9 use MooseX::Types -declare => [qw/LogicEnum WhereType/];
11 enum LogicEnum, qw(OR AND);
13 coerce LogicEnum, from Str, via { uc $_ };
15 subtype WhereType, as Str|ArrayRef|HashRef|ScalarRef;