[dbsrgits/SQL-Abstract-2.0-ish.git] / lib / SQL / Abstract / Types / Compat.pm

use MooseX::Declare;

class SQL::Abstract::Types::Compat is dirty {
  use Moose::Util::TypeConstraints;
  use MooseX::Types::Moose qw/ArrayRef Str Int Ref HashRef ScalarRef/;

  clean;

  use MooseX::Types -declare => [qw/LogicEnum WhereType/];

  enum LogicEnum, qw(OR AND);

  coerce LogicEnum, from Str, via { uc $_ };

  subtype WhereType, as Str|ArrayRef|HashRef|ScalarRef;
}
Commit	Line	Data
d70ca130	1	use MooseX::Declare;
d70ca130	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 $_ };
aa0f2366	14
d70ca130	15	subtype WhereType, as Str\|ArrayRef\|HashRef\|ScalarRef;
d70ca130	16	}