X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract%2FTypes%2FCompat.pm;h=fff3859e374ebd2191f3eeffa088db29a3b8b225;hb=aa0f2366f9d425eed0c5126c4e947c448bca7ecb;hp=36dd4554073faf365b716d28ac14638017b4ccc7;hpb=0a18aa4f2fd71db7f80a6e53b11d5759a2c2f762;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

diff --git a/lib/SQL/Abstract/Types/Compat.pm b/lib/SQL/Abstract/Types/Compat.pm
index 36dd455..fff3859 100644
--- a/lib/SQL/Abstract/Types/Compat.pm
+++ b/lib/SQL/Abstract/Types/Compat.pm
@@ -10,5 +10,7 @@ class SQL::Abstract::Types::Compat {
 
   enum LogicEnum, qw(OR AND);
 
+  coerce LogicEnum, from Str, via { uc $_ };
+
   subtype WhereType, as Str|ArrayRef|HashRef|ScalarRef;
 }