[Bast-commits] r8295 - DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2010-01-13 16:28:05 +0000 (Wed, 13 Jan 2010)
New Revision: 8295

Modified:
   DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
added the sources parser arg to the example code


Modified: DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2010-01-13 16:19:48 UTC (rev 8294)
+++ DBIx-Class/0.08/trunk/lib/SQL/Translator/Parser/DBIx/Class.pm	2010-01-13 16:28:05 UTC (rev 8295)
@@ -379,7 +379,14 @@
  my $schema = MyApp::Schema->connect;
  my $trans  = SQL::Translator->new (
       parser      => 'SQL::Translator::Parser::DBIx::Class',
-      parser_args => { package => $schema },
+      parser_args => {
+          package => $schema,
+          # to explicitly specify which ResultSources are to be parsed
+          sources => [qw/
+            Artist
+            CD
+          /],
+      },
       producer    => 'SQLite',
      ) or die SQL::Translator->error;
  my $out = $trans->translate() or die $trans->error;