package Maypole::View::Base;
+use Class::C3;
use File::Spec;
use UNIVERSAL::moniker;
use strict;
push(@output,
(
$r->model_class
- && File::Spec->catdir( $path, $r->model_class->moniker )
+ && File::Spec->catdir( $path, $r->model_class->table )
)
);
push(@output, File::Spec->catdir( $path, "custom" ));
request => $r,
objects => $r->objects,
base => $base,
- config => $r->config
-
- # ...
+ config => $r->config,
);
+
+ $args{object} = $r->object if ($r->can('object'));
+
if ($class) {
my $classmeta = $r->template_args->{classmetadata} ||= {};
$classmeta->{name} ||= $class;