X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSet%2FRecursiveUpdate.pm;fp=lib%2FDBIx%2FClass%2FResultSet%2FRecursiveUpdate.pm;h=94b1c07dde938807d001607ae6dfecd1e2e0c091;hp=c0db8b415ebac682e0a1bad8fe19b18722fb0604;hb=ac6bae45084484cdef44619daf60aa6b9eb2d02a;hpb=5c1ba4989dded4309b97be2e8dd48d7bc8b9b3ef diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm index c0db8b4..94b1c07 100644 --- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm +++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm @@ -107,7 +107,7 @@ sub recursive_update { $object = $self->find( $updates, { key => 'primary' } ); } - $object = $self->new( {} ) + $object = $self->new_result( {} ) unless defined $object; # warn Dumper( $updates ); use Data::Dumper; @@ -463,7 +463,7 @@ sub is_m2m { if ( $rclass->can('_m2m_metadata') ) { return $rclass->_m2m_metadata->{$relation}; } - my $object = $self->new( {} ); + my $object = $self->new_result( {} ); if ( $object->can($relation) and !$self->result_source->has_relationship($relation) and $object->can( 'set_' . $relation ) ) @@ -484,7 +484,7 @@ sub get_m2m_source { ->related_source( $rclass->_m2m_metadata->{$relation}{foreign_relation} ); } - my $object = $self->new( {} ); + my $object = $self->new_result( {} ); my $r = $object->$relation; return $r->result_source; }