Catalyst Improving your Catalyst Application #10

Don't reinvent Catalyst

sub default {
    my ($self, $c, $controller, $method, @args) = @_;
    my $class = "MyApp::Controller::\u$path";
    my $html = $class->$method(@args);
    $c->response->body($html);
}
continued...
Infinity Interactive