PRIOR rendering for CONNECT BY

diff --git a/lib/Data/Query/Renderer/SQL/Extension/ConnectBy.pm b/lib/Data/Query/Renderer/SQL/Extension/ConnectBy.pm
new file mode 100644 (file)
index 0000000..ba689c6
--- /dev/null
+++ b/lib/Data/Query/Renderer/SQL/Extension/ConnectBy.pm
@@ -0,0 +1,10 @@
+package Data::Query::Renderer::SQL::Extension::ConnectBy;
+
+use Moo::Role;
+
+around _default_simple_ops => sub {
+  my ($orig, $self) = (shift, shift);
+  +{ %{$self->$orig(@_)}, PRIOR => 'unop' };
+};
+
+1;