From: David Kamholz <dkamholz@cpan.org>
Date: Sat, 8 Jul 2006 16:16:17 +0000 (+0000)
Subject: apply claco's result_source_instance patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d3d5af32b9b040e9a9d139a6a4dc6cfb23da9e7;p=dbsrgits%2FDBIx-Class-Historic.git

apply claco's result_source_instance patch
---

diff --git a/lib/DBIx/Class/Schema.pm b/lib/DBIx/Class/Schema.pm
index 40ba39f..c7214ca 100644
--- a/lib/DBIx/Class/Schema.pm
+++ b/lib/DBIx/Class/Schema.pm
@@ -390,6 +390,8 @@ sub compose_namespace {
         $target_class => $source->result_class, ($base ? $base : ())
       );
       $source->result_class($target_class);
+      $target_class->result_source_instance($source)
+        if $target_class->can('result_source_instance');
     }
   }
   Class::C3->reinitialize();