sub paths {
my ( $self, $r ) = @_;
- my $root = $r->{config}{template_root} || $r->get_template_root;
+ my $root = $r->config->template_root || $r->get_template_root;
return (
$root,
(
sub vars {
my ( $self, $r ) = @_;
my $class = $r->model_class;
- my $base = $r->{config}->{uri_base};
+ my $base = $r->config->uri_base;
$base =~ s/\/+$//;
my %args = (
request => $r,
sub process {
my ( $self, $r ) = @_;
- my $status = $self->template($r);
- return $self->error($r) if $status != OK;
$r->{content_type} ||= "text/html";
$r->{document_encoding} ||= "utf-8";
+ my $status = $self->template($r);
+ return $self->error($r) if $status != OK;
return OK;
}