Don't reinvent Catalyst
- example:
sub default {
my ($self, $c, $controller, $method, @args) = @_;
my $class = "MyApp::Controller::\u$path";
my $html = $class->$method(@args);
$c->response->body($html);
}
continued...
| Catalyst | Improving your Catalyst Application | #10 |
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 |