sub _options_from_objects {
my ($self, $items, $args) = @_;
my $selected = $args->{selected} || {};
- my $stringify = $args->{stringify};
my @res;
for my $object (@$items) {
- $stringify ||= $object->stringify_column if ($object->can('stringify_column'));
+ my $stringify = $args->{stringify};
+ if ($object->can('stringify_column') ) {
+ $stringify ||= $object->stringify_column if ($object->can($object->stringify_column));
+ }
my $id = $object->id;
my $opt = HTML::Element->new("option", value => $id);
$id =~ s/^0*//; # leading zeros no good in hash key