+sub related_class {
+ my ( $self, $r, $accessor ) = @_;
+
+ my $related = $self->meta_info( has_many => $accessor ) ||
+ $self->meta_info( has_a => $accessor ) ||
+ return;
+
+ my $mapping = $related->{args}->{mapping};
+ if ( @$mapping ) {
+ return $related->{foreign_class}->meta_info('has_a')->{ $$mapping[0] }
+ ->{foreign_class};
+ }
+ else {
+ return $related->{foreign_class};
+ }
+}
+
+sub do_edit : Exported {
+ my ( $self, $r ) = @_;
+ my $h = CGI::Untaint->new( %{ $r->{params} } );
+ my $creating = 0;
+ my ($obj) = @{ $r->objects || [] };
+ my $fatal;