From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 16 Apr 2012 19:57:34 +0000 (+0000)
Subject: handle slightly weird case of partial $from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c2fade6048aa63b337d6b4e5daa9f06c91cbbc6;p=dbsrgits%2FDBIx-Class-Historic.git

handle slightly weird case of partial $from
---

diff --git a/lib/DBIx/Class/SQLMaker/Converter.pm b/lib/DBIx/Class/SQLMaker/Converter.pm
index a928e36..d290911 100644
--- a/lib/DBIx/Class/SQLMaker/Converter.pm
+++ b/lib/DBIx/Class/SQLMaker/Converter.pm
@@ -132,6 +132,10 @@ sub _join_to_dq {
 
   my $cur_dq = $self->_table_to_dq($from);
 
+  if (!@joins or @joins == 1 and ref($joins[0]) eq 'HASH') {
+    return $cur_dq;
+  }
+
   foreach my $join (@joins) {
     my ($to, $on) = @$join;