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,