From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 17 Mar 2013 21:47:21 +0000 (+0000)
Subject: PRIOR rendering for CONNECT BY
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be3d4500b4dac9952d897fa465a8cae7c895970b;p=dbsrgits%2FData-Query.git

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
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;