package Maypole::View::Base;
+use Class::C3;
use File::Spec;
use UNIVERSAL::moniker;
use strict;
objects => $r->objects,
base => $base,
config => $r->config,
- object => $r->object,
-
- # ...
);
+
+ $args{object} = $r->object if ($r->can('object'));
+
if ($class) {
my $classmeta = $r->template_args->{classmetadata} ||= {};
$classmeta->{name} ||= $class;
$classmeta->{related_accessors} ||= [ $class->related($r) ];
$classmeta->{moniker} ||= $class->moniker;
$classmeta->{plural} ||= $class->plural_moniker;
- $classmeta->{cgi} ||= { $class->to_cgi };
+ $classmeta->{cgi} ||= { $class->to_cgi } if ($r->build_form_elements);
$classmeta->{stringify_column} ||= $class->stringify_column;
# User-friendliness facility for custom template writers.