From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 7 Oct 2019 00:59:08 +0000 (+0000)
Subject: Install DBIC-compatible ident renderer
X-Git-Tag: v2.000000~3^2~36
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2d9d2210efef9ccfb7ac5f29e28df8b80581eedc;p=dbsrgits%2FSQL-Abstract.git

Install DBIC-compatible ident renderer
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 83ba29f..a4e7193 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -301,6 +301,11 @@ sub new {
         s/\A\s+//, s/\s+\Z// for $sql;
         return [ $sql, @bind ];
       };
+      $opt{expand_op}{ident} = sub {
+        my ($self, undef, $body) = @_;
+        $body = $body->from if Scalar::Util::blessed($body);
+        $self->_expand_ident(ident => $body);
+      };
     }
   }