+
+ # relationships
+ if ( $source->has_relationship($name) ) {
+ my $info = $source->relationship_info($name);
+ if (_master_relation_cond(
+ $source, $info->{cond},
+ _get_pk_for_related( $self, $name )
+ )
+ )
+ {
+
+ #warn "$name is a pre-update rel";
+ $pre_updates{$name} = $updates->{$name};
+ next;
+ }
+ else {
+
+ #warn "$name is a post-update rel";
+ $post_updates{$name} = $updates->{$name};
+ next;
+ }
+ }
+
+ # many-to-many helper accessors
+ if ( is_m2m( $self, $name ) ) {
+
+ #warn "$name is a many-to-many helper accessor";