lib/SQL/Abstract/Types/Compat.pm

   1 use MooseX::Declare;
   2
   3 class SQL::Abstract::Types::Compat is dirty {
   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
  13   coerce LogicEnum, from Str, via { uc $_ };
  14
  15   subtype WhereType, as Str|ArrayRef|HashRef|ScalarRef;
  16 }