X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FRow.pm;h=57f883f4f3d5e97c5086bddbcd6eb7699a7e2587;hp=60250b6287cd0f9fe70a6e10f4551440df4905d4;hb=096f421241;hpb=03f24ee3c4fd551a0de43a1cc2821184f8864cb8

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index 60250b6..57f883f 100644
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -41,6 +41,9 @@ sub new {
   if ($attrs) {
     $new->throw_exception("attrs must be a hashref")
       unless ref($attrs) eq 'HASH';
+    if (my $source = delete $attrs->{-result_source}) {
+      $new->result_source($source);
+    }
     foreach my $k (keys %$attrs) {
       $new->throw_exception("No such column $k on $class")
         unless $class->has_column($k);