sqlite: output view fields in SQL

Author: djerius

lib/SQL/Translator/Producer/SQLite.pm

@@ -158,6 +158,11 @@ sub create_view {
       if exists($extra->{if_not_exists}) && $extra->{if_not_exists};
   $create_view .= " ${view_name}";
 
+  if (my @fields = $view->fields) {
+    my $field_list = join ', ', map { _generator->quote($_) } @fields;
+    $create_view .= " ( ${field_list} )";
+  }
+
   if (my $sql = $view->sql) {
     $create_view .= " AS\n    ${sql}";
   }

t/56-sqlite-producer.t

@@ -25,7 +25,7 @@ $SQL::Translator::Producer::SQLite::NO_QUOTES = 0;
   my $view1_sql1  = [ SQL::Translator::Producer::SQLite::create_view($view1, $create_opts) ];
 
   my $view_sql_replace = [
-    'CREATE TEMPORARY VIEW IF NOT EXISTS "view_foo" AS
+    'CREATE TEMPORARY VIEW IF NOT EXISTS "view_foo" ( "id", "name" ) AS
     SELECT id, name FROM thing'
   ];
   is_deeply($view1_sql1, $view_sql_replace, 'correct "CREATE TEMPORARY VIEW" SQL');
@@ -38,7 +38,7 @@ $SQL::Translator::Producer::SQLite::NO_QUOTES = 0;
 
   my $view1_sql2         = [ SQL::Translator::Producer::SQLite::create_view($view2, $create_opts) ];
   my $view_sql_noreplace = [
-    'CREATE VIEW "view_foo" AS
+    'CREATE VIEW "view_foo" ( "id", "name" ) AS
     SELECT id, name FROM thing'
   ];
   is_deeply($view1_sql2, $view_sql_noreplace, 'correct "CREATE VIEW" SQL');