[Bast-commits] r3266 - branches/DBIx-Class-current/lib/DBIx/Class

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2007-05-08 20:41:38 +0100 (Tue, 08 May 2007)
New Revision: 3266

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/Row.pm
Log:
Move -result_source handling further up

Modified: branches/DBIx-Class-current/lib/DBIx/Class/Row.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Row.pm	2007-05-08 19:35:36 UTC (rev 3265)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Row.pm	2007-05-08 19:41:38 UTC (rev 3266)
@@ -39,6 +39,9 @@
   if (my $handle = delete $attrs->{-source_handle}) {
     $new->_source_handle($handle);
   }
+  if (my $source = delete $attrs->{-result_source}) {
+    $new->result_source($source);
+  }
 
   if ($attrs) {
     $new->throw_exception("attrs must be a hashref")
@@ -66,9 +69,6 @@
         unless $class->has_column($key);
       $new->store_column($key => $attrs->{$key});          
     }
-    if (my $source = delete $attrs->{-result_source}) {
-      $new->result_source($source);
-    }
 
     $new->{_relationship_data} = $related if $related;
     $new->{_inflated_column} = $inflated if $inflated;