Merge b77fe24 into 5548259

frioux · Sep 12, 2014 · e8f168d · e8f168d
2 parents 5548259 + b77fe24
commit e8f168d
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm b/lib/DBIx/Class/Helper/Row/ProxyResultSetMethod.pm
@@ -40,7 +40,7 @@ sub proxy_resultset_method {
 }
 
 sub copy {
-   delete local @{$_[0]->{_column_data}}{@{$_[0]->_proxy_slots}};
+   delete local @{$_[0]->{_column_data}}{@{$_[0]->_proxy_slots||[]}};
 
    shift->next::method(@_);
 }

diff --git a/t/lib/TestSchema/Result/Bloaty.pm b/t/lib/TestSchema/Result/Bloaty.pm
@@ -1,7 +1,8 @@
 package TestSchema::Result::Bloaty;
 
 use DBIx::Class::Candy -components => [
-   'Helper::Row::ProxyResultSetUpdate'
+   'Helper::Row::ProxyResultSetUpdate',
+   'Helper::Row::ProxyResultSetMethod',
 ];
 
 table 'Bloaty';

diff --git a/t/row/proxy-resultset-method.t b/t/row/proxy-resultset-method.t
@@ -38,5 +38,11 @@ subtest 'copy result' => sub {
     is $g3->id, 100, 'id is correctly overridden';
 };
 
+subtest 'copy result without any proxy defined' => sub {
+   my $bloaty = $schema->resultset('Bloaty')->first;
+   ok my $bcopy = $bloaty->copy({ id => 100, name => 'boo' }), 'Copied result';
+   is $bcopy->id, 100, 'id is correctly overridden';
+};
+
 done_testing;