[Bast-commits] r3202 - in trunk/DBIx-Class/lib: DBIx/Class SQL/Translator/Parser/DBIx

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-04-19 03:29:05 +0100 (Thu, 19 Apr 2007)
New Revision: 3202

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Schema.pm
   trunk/DBIx-Class/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
reverting r3173, already implemented in -current

Modified: trunk/DBIx-Class/lib/DBIx/Class/Schema.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Schema.pm	2007-04-18 00:21:01 UTC (rev 3201)
+++ trunk/DBIx-Class/lib/DBIx/Class/Schema.pm	2007-04-19 02:29:05 UTC (rev 3202)
@@ -744,10 +744,6 @@
 common value for this would be C<< { add_drop_table => 1, } >> to have the SQL
 produced include a DROP TABLE statement for each table created.
 
-C<source_names> can also be added to C<$sqlt_args> containing an array
-reference of L<source> names of tables to be deployed. Per default,
-all tables are deployed.
-
 =cut
 
 sub deploy {

Modified: trunk/DBIx-Class/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- trunk/DBIx-Class/lib/SQL/Translator/Parser/DBIx/Class.pm	2007-04-18 00:21:01 UTC (rev 3201)
+++ trunk/DBIx-Class/lib/SQL/Translator/Parser/DBIx/Class.pm	2007-04-19 02:29:05 UTC (rev 3202)
@@ -42,10 +42,11 @@
 
 #    print Dumper($dbixschema->registered_classes);
 
+    #foreach my $tableclass ($dbixschema->registered_classes)
+
     my %seen_tables;
 
-    my @sources = exists $args->{'source_names'} ? @{ $args->{'source_names'} } : $dbixschema->sources;
-    foreach my $moniker (@sources)
+    foreach my $moniker ($dbixschema->sources)
     {
         #eval "use $tableclass";
         #print("Can't load $tableclass"), next if($@);