HasMany now does a LEFT JOIN, added more tests

[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Row.pm

diff --git a/lib/DBIx/Class/Row.pm b/lib/DBIx/Class/Row.pm
index cb086c8..f789b29 100644 (file)
--- a/lib/DBIx/Class/Row.pm
+++ b/lib/DBIx/Class/Row.pm
@@ -211,11 +211,7 @@ sub store_column {
 sub _row_to_object {
   my ($class, $cols, $row) = @_;
   my %vals;
-  foreach my $pos (0..$#$cols) {
-    my $c = $cols->[$pos];
-    $c =~ s/^me\.//;
-    $vals{$c} = $row->[$pos];
-  }
+  $vals{$cols->[$_]} = $row->[$_] for 0 .. $#$cols;
   my $new = $class->new(\%vals);
   $new->in_storage(1);
   return $new;