clean;
- our $VERSION = '0.001';
+ our $VERSION = '0.002';
around keywords {
$self->$orig,
ControllerKeyword->new(identifier => 'controller'),
- RoleKeyword->new(identifier => 'controller_role'),
+ RoleKeyword->new(identifier => 'component_role'),
ApplicationKeyword->new(identifier => 'application'),
}
}
method _build_welcome_message { 'Welcome' }
- action base as '';
+ action base under '/' as '';
under base {
use CatalystX::Declare;
- controller_role MyApp::Web::ControllerRole::Bar {
+ component_role MyApp::Web::ControllerRole::Bar {
use MyApp::Types qw( Username );
controller MyApp::Web::Controller::Baz {
- final action qux {
+ final action qux under '/' {
$ctx->response->body(Foo->new->bar)
}
}