- $args{classmetadata} = {
- name => $class,
- table => $class->table,
- columns => [ $class->display_columns ],
- list_columns => [ $class->list_columns ],
- colnames => { $class->column_names },
- related_accessors => [ $class->related($r) ],
- moniker => $class->moniker,
- plural => $class->plural_moniker,
- cgi => { $class->to_cgi },
- };
+ my $classmeta = $r->template_args->{classmetadata} ||= {};
+ $classmeta->{name} ||= $class;
+ $classmeta->{table} ||= $class->table;
+ $classmeta->{columns} ||= [ $class->display_columns ] if ($class->can('display_columns'));
+ $classmeta->{list_columns} ||= [ $class->list_columns ] if ($class->can('list_columns'));
+ $classmeta->{colnames} ||= { $class->column_names } if ($class->can('column_names'));
+ $classmeta->{related_accessors} ||= [ $class->related($r) ];
+ $classmeta->{moniker} ||= $class->moniker;
+ $classmeta->{plural} ||= $class->plural_moniker;
+ $classmeta->{cgi} ||= { $class->to_cgi } if ($r->build_form_elements && $class->can('to_cgi'));
+ $classmeta->{stringify_column} ||= $class->stringify_column if ($class->can('stringify_column'));