Convert (in)equality with undef to (not) defined/IS NOT NULL ops

[dbsrgits/Data-Query.git] / lib / Data / Query / Renderer / SQL / Naive.pm

diff --git a/lib/Data/Query/Renderer/SQL/Naive.pm b/lib/Data/Query/Renderer/SQL/Naive.pm
index a84981b..82e4e16 100644 (file)
--- a/lib/Data/Query/Renderer/SQL/Naive.pm
+++ b/lib/Data/Query/Renderer/SQL/Naive.pm
@@ -268,6 +268,7 @@ sub _convert_op {
       $_ eq '==' and return '=';
       $_ eq 'eq' and return '=';
       $_ eq '!' and return 'NOT';
+      $_ eq 'defined' and return 'IS NOT NULL';
     }
     return uc $perl_op; # hope!
   }