X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract.pm;h=d3b517c7b4dff40e029df3cdd0e99867b78251bb;hb=747f7c21cd4218289f607ee3c60f4e7b99d55037;hp=3d6bd73cd0f7d80ca91598315d6a422ee73f46eb;hpb=36cc0a15b5767b3e715ed701ea1ffcc0f1859944;p=dbsrgits%2FSQL-Abstract-2.0-ish.git

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 3d6bd73..d3b517c 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -11,6 +11,7 @@ class SQL::Abstract {
   use MooseX::Types::Moose qw/ArrayRef Str Int HashRef CodeRef/;
   use MooseX::AttributeHelpers;
   use SQL::Abstract::Types qw/NameSeparator QuoteChars AST HashAST ArrayAST/;
+  use Devel::PartialDump qw/dump/;
 
   clean;
 
@@ -140,7 +141,7 @@ class SQL::Abstract {
     # I want multi methods!
     my $tag;
     if (is_ArrayAST($ast)) {
-      ($tag = $ast->[0]) =~ s/^-/_/;
+      confess "FIX: " . dump($ast); 
     } else {
       $tag = "_" . $ast->{-type};
     }