return;
}
+
my $errors;
if ($obj) {
($obj,$errors) = $class->_do_update($r,$obj);
}
my $this_class_params = { map { $_ => $r->{params}{$_} } $class->columns };
+ delete $this_class_params->{route_id};
# update or make other related (must_have, might_have, has_many etc )
unless ($errors) {
# get related object if it exists
my $rel_meta = $class->related_meta('r',$accssr);
if (!$rel_meta) {
- $class->_carp("No relationship for $accssr in " . ref($class));
+ $r->warn("[_do_update] No relationship for $accssr in " . ref($class));
next;
}
}
return ($obj,$errors);
-
}
sub _do_create {
my $created = [];
my $rel_meta = $self->related_meta('r',$accssr);
if (!$rel_meta) {
- $self->_carp("No relationship for $accssr in " . ref($self));
+ $self->_carp("[_create_related] No relationship for $accssr in " . ref($self));
return;
}