package Maypole::Model::CDBI::AsForm;
-
-use Class::C3;
use strict;
use warnings;
my $rel_meta = $args->{related_meta} || $self->related_meta('r',$accssr);
my $fields = $args->{columns};
if (!$rel_meta) {
- $self->_croak( "No relationship for accessor $accssr");
+ $self->_carp( "[_to_foreign_inputs] No relationship for accessor $accssr");
+ return;
}
my $rel_type = $rel_meta->{name};
for my $object (@$items) {
my $stringify = $args->{stringify};
if ($object->can('stringify_column') ) {
- $stringify ||= $object->stringify_column if ($object->can($object->stringify_column));
+ $stringify ||= $object->stringify_column if ($object->stringify_column && $object->can($object->stringify_column));
}
my $id = $object->id;
my $opt = HTML::Element->new("option", value => $id);