move rendering to default render_op
Matt S Trout [Tue, 26 Mar 2019 01:57:59 +0000 (01:57 +0000)]
lib/SQL/Abstract.pm

index 299f67b..be0efac 100644 (file)
@@ -226,7 +226,15 @@ sub new {
     %{$opt{render}||{}}
   };
 
-  $opt{render_op} = our $RENDER_OP;
+  $opt{render_op} = {
+    (map +($_ => '_render_op_between'), 'between', 'not between'),
+    (map +($_ => '_render_op_in'), 'in', 'not in'),
+    (map +($_ => '_render_unop_postfix'),
+      'is null', 'is not null', 'asc', 'desc',
+    ),
+    (not => '_render_op_not'),
+    (map +($_ => '_render_op_andor'), qw(and or)),
+  };
 
   return bless \%opt, $class;
 }
@@ -1079,16 +1087,6 @@ sub _render_op_andor {
   );
 }
 
-our $RENDER_OP = {
-  (map +($_ => '_render_op_between'), 'between', 'not between'),
-  (map +($_ => '_render_op_in'), 'in', 'not in'),
-  (map +($_ => '_render_unop_postfix'),
-    'is null', 'is not null', 'asc', 'desc',
-  ),
-  (not => '_render_op_not'),
-  (map +($_ => '_render_op_andor'), qw(and or)),
-};
-
 sub _render_op {
   my ($self, $v) = @_;
   my ($op, @args) = @$v;