quote aliases in select list

Author: jamadam

lib/Data/ObjectDriver/SQL.pm

@@ -65,7 +65,7 @@ sub as_sql {
         $sql .= 'DISTINCT ' if $stmt->distinct;
         $sql .= join(', ',  map {
             my $alias = $stmt->select_map->{$_};
-            $alias && /(?:^|\.)\Q$alias\E$/ ? $_ : "$_ $alias";
+            $alias && /(?:^|\.)\Q$alias\E$/ ? $_ : qq!$_ "$alias"!;
         } @{ $stmt->select }) . "\n";
     }
     $sql .= 'FROM ';

t/11-sql.t

@@ -288,7 +288,7 @@ $stmt = ns();
 $stmt->add_select('f.foo' => 'foo');
 $stmt->add_select('COUNT(*)' => 'count');
 $stmt->from([ qw( baz ) ]);
-is($stmt->as_sql, "SELECT f.foo, COUNT(*) count\nFROM baz\n");
+is($stmt->as_sql, qq!SELECT f.foo, COUNT(*) "count"\nFROM baz\n!);
 my $map = $stmt->select_map;
 is(scalar(keys %$map), 2);
 is($map->{'f.foo'}, 'foo');
@@ -306,7 +306,7 @@ $stmt->limit(2);
 $stmt->add_having(count => 2);
 
 is($stmt->as_sql, <<SQL);
-SELECT foo, COUNT(*) count
+SELECT foo, COUNT(*) "count"
 FROM baz
 WHERE (foo = ?)
 GROUP BY baz