Start of TableInstance code. CDBICompat currently b0rken

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Schema.pm

diff --git a/lib/DBIx/Class/Schema.pm b/lib/DBIx/Class/Schema.pm
index 4c4942b..fa8e850 100644 (file)
--- a/lib/DBIx/Class/Schema.pm
+++ b/lib/DBIx/Class/Schema.pm
@@ -167,7 +167,9 @@ sub compose_connection {
   while (my ($comp, $comp_class) = each %reg) {
     my $target_class = "${target}::${comp}";
     $class->inject_base($target_class, $comp_class, $conn_class);
-    $target_class->table($comp_class->table);
+    my $table = $comp_class->table->new({ %{$comp_class->table} });
+    $table->result_class($target_class);
+    $target_class->table($table);
     @map{$comp, $comp_class} = ($target_class, $target_class);
   }
   {